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A economia brasileira se asseme/ha a 
uma escada rolante que esfe descendo. Se 
vocS nela ficar parado, fatal men te acabara 
descendo junto. O setor ligado a in forma ti- 
ca, por&m esta percorrendo esta escada em 
sentido contrario e consegue galgar seus de- 
graus tao rapid amente que est£ subindo 
apesar da crise e da recessao. 

Neste m€s de outubro rea/iza-se a III Fei- 
ra Internacional da Informatica no Parque 
Anhembi em Sao Paulo. O volume de expo- 
si tores e participantes mostra bem a impor- 
tancia deste setor da economia brasileira. 

Deve-se desta car, entretanto que esta 
pujanca nao 4 devida aos grandes sistemas, 
4rea dominada pelos "experts" e pel os 
pomposos e retumbantes executivos das 
centrais de processamento de dados. Ela se 
deve mais ao pequeno empress rio ou pro- 
fessional que se utilize de um mini ou mi- 
cro computador: se deve a vocS, usuario, 
que tern uma pequena (e barata\) maravi- 
Iha dentro de casa. VocS deve se orgulhar 
disto l 

Todo este otimismo, pordm deve gerar 
duas cautelas: em primeiro lugar devemos 
lutar com todas as formas para que esta in- 
dustria brasileira continue brasi/eira\ Em 
segundo lugar devemos nos acaute/ar con- 
tra os picaretas atraidos pelo lucro feci I e 
pelo modismo do mercado. Para isso a nos- 
sa revista continuafe informando , analisan- 
do e principalmente ensinando ao usuario 
co mo tirar o maxi mo proveito de seu pe- 
queno grande computador. Como exemplo 
disto , estamos publicando neste numero a 
primeira parte de um importante artigo so- 
bre direitos autorais de software. A final, 
muitos de nossos leitores sao "pronsumido- 
res", ou seja, consumidores que tamMm 
produzem em nivel artesanal ou afe profis- 
sional, e esta 4 uma atividade que pode e 
deve ser protegida contra piratas e tuba- 
roes ! 
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CARTAS DOS 
LEITORES 



Gostaria de parabeniz^-los pela excelente id6ia de 
conglomerar os usu^rios do TK82C em torno de uma 
publicagao. 

Aproveito a oportunidade para solicitar o numero ze- 
ro da Microhobby e assim poder completar a colegao, 
desde o im'cio. A forma de pagamento dever2 ser infor- 
mada pelos senhores, para que eu possa receber o nume- 
ro zero. 

Uma vez que a revista tern grande penetragao, gostaria 
de solicitar-lhes, se possi'vel, a publicagao ou o envio pa- 
ra mim, do esquema eletronico do TK-82C, pois tenho 
vontade de conhece-lo mais a fundo tanto em hardware 
quanto em software e passar assim, a desenvolver alguns 
usos diferentes para o micro, principalmente na Area de 
controle. 

Contando com a sua compreensao, agradego a aten- 
gao dispensada. 

Luis Henrique P. Fonseca - Salvador, BA. 

Caro Luiz Henrique, 

Infelizmente o numero Zero de nossa revista estd es- 
gotado.Como paliativo, por6m, voce pode tentar obter, 
de algum amigo, uma cdpia "Xerox” deta. Em ultimo 
caso, escreva-nos novamente e nds the mandaremos uma 
"xerox" da mesma. ~ 



Faz pouco mais de tres meses, procurei comprar uma 
m^quina de jogos-xadrez e nao achei no mercado. Numa 
das lojas que visitei, me ofereceram urn TK-82, dizendo 
que "tamb^m jogava xadrez". 0 prego do mesmo era 
razo^vel e eu o comprei. 

Depois de constatar que realmente o computador jo- 
gava xadrez, comecei a pensar: “uma mdquina capaz de 
fazer aquilo, deveria ser capaz, tamb^m de fazer virtual- 
mente qualquer coisa". Passei a estudar o manual, que a 
princi'pio me pareceu escrito em grego, interessando-me 
cada vez mais pelo computador. Aos poucos, fui me sen- 
tindo capaz de desenvolver urn programinha, para con- 
trole de nosso orgamento dom&tico - e nao 6 que deu 
certo?! 

Logo descobri, por6m, que a capacidade da m^quina 
nao 6 ilimitada. Nao 6 coisa muito diffcil botar, na me- 
mdria, urn programa. Isto fez aumentar minha admira- 
gao pelo programa de xadrez. E tamb^m minha curiosi- 
dade. Quis saber mais a respeito daquela pequena mara- 
vilha. E minha curiosidade levou-me a ler, com mais 
atengao, a revista numero Zero da Microhobby. Gostei 
tanto da revista que resolvi fazer a sua assinatura. Os 
dois primeiros numeros confirmaram a minha expecta- 
tiva. A medida que vou adquirindo novos conhecimen- 



tos, vejo expandir-se o horizonte das possibilidades que 
a computagao oferece. 

Enfim: "descobri uma nova atividade extraordinaria- 
mente interessante, que tern, a meu ver, urn unico defei- 
to: nao me deixa mais tempo para o xadrez". 

Junto com o numero 2, recebi a fita brinde, que por 
algum erro involunt^rio, de sua parte, veio sem o progra- 
ma "Simulador de Voo". Estou remetendo-o para, se 
possi'vel, troc^-la. E, se for possi'vel escolher, eu prefiro 
que me enviem o apagador de fitas. Aproveitando o lado 
2 da fita, que estava "vazio", gravei nele, uma possi'vel 
solugao do quebra-cabega "Verdadeiro ou Falso", que 
deve ser carregado com LOAD "V/F". Mesmo que nao 
seja escolhido para publicagao, gostaria que fosse co- 
mentado por alguem que realmente saiba programagao, 
para poder corrigir-me e para que eu possa aprender. 

Estou enviando, tamb6m, uma fita do "TK-MAN" 
que nao quer entrar. Gostaria de saber se 6 defeito de 
meu gravador ou da fita. 

E tenho ainda mais uma pergunta: 

1 . 0 manual diz que PAUSE deve ser seguida de 
POKE 16437,255; mas nos programas publicados na Re- 
vista, POKE est3 antes de PAUSE. £ o mesmo? 

2. Se eu entendi direito, no programa de Alta Resolu- 
gao (nP 2) h3 uma linha REM que fornece instrugoes em 
linguagem de m^quina. As linhas REM nao sao, entao 
ignoradas? Existe o risco de, ao se utilizar em REM (que 
pode ser "enfeitado" com alguns caracteres gr^ficos) 
estas linhas fornecerem alguma instrugSo n§o desejada? 

Grato pela atengao que voces me dispensarem e at6 a 
prdxima! 

Alejandro Luis Cobos - Sao Paulo, Capital. 

Prezado Alejandro, 

Grande parte de sua estdria 6 comum a muitos usua- 
rios do TK (entre os quais nds nos incluimos). Com rela- 
cao as fitas, informamo-lhe que a do "Simulador de 
Voo" foi substituida por outra testada e ja foi providen- 
ciado o seu envio para voce. 

A fita do "TK-MAN" foi remetida a MICROSOFT pa- 
ra ser testada. Oportunamente voce recebera noticias 
dela. 

. Sua solugao do Quebra-Cabega ainda estd sendo estu- 
dada por nossos programadores. 

A seguir, damos a resposta de sua primeira pergunta. 
A resposta da sua segunda pergunta, foi transferida para 
a segao " DESGRILANDO ". 

1. A linha POKE 16437,255 apds uma PAUSE, sd 4 ne- 
cessaria nas maquinas mais antigas (devido a seu peque- 
no inconveniente na ROM). As mdquinas mais novas dis- 
pensam-na. q 
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Prezados Senhores, 

Antes de mais nada, metis parab^ns pela excelente re- 
vista; informo-lhes que a "Microhobby" 4 a revista que 
sempre quis ter em maos, agora nao falta mais nada. 

0 que quero saber 6 o seguinte: "A questao de uns 
quatro meses, adquiri, pela Microdigital, a fita com os 
prograrhas "Demolidor e Marciano". E sem pre as usei 
sem problemas. 

S6 que de uns dias para c£, o programa "Marciano" 
nao entra no Micro apos o LOAD. Ao inves de acabar 
com 0/0 ele acaba com o cursor L. 

Eu fiz exatamente o que os itens 1 e 2 falavam na res- 
posta para o S6rgio no numero anterior, mas nao obtive 
resultado. Logo, eu pergunto: "Seu eu enviar para a 
Microdigital - explicando o problema, eles eventual- 
mente me mandam outra fita?". 

E por ultimo, o TK-82C nao possue a funqao "DEF 
FNR(x)" — o que devo fazer?”. 

Atenciosamente, 

Amauri P. Lucio — Taubat4, SP. 

Caro Amauri, 

Cremos que a gravagao em fita tenha sido danificada 
acidentalmente por voce (talvez por deixa-la prdxima a 
televisores ou transformadores e outros aparelhos do ti- 
po ). Neste caso infelizmente, a fita nao the sera substi- 
tuida. De qualquer modo, esperando que estejamos er- 
rados, vale a pena voce tentar envia-la para verificacao. 
Com relagao a garantia das fitas comercializadas, comen- 
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tamos a respeito, sobre uma inovaqao introduzida pela 
Multisoft na seqao Fita do Mes. 

Voce pergunta ainda, como traduzir para o BASIC 
TK, a instruqao DEF FNR (x). A seguir, pub/icamos , pa- 
ra voce, uma poss/'vel solugao: 

Suponha que as linhas a serem traduzidas sejam as se- 
guintes: 

1000 DEF FNR(x) = LN (INT(x + LNx)) 

1500 LET K = FNR (10) 

Procedemos a traduqao seguindo os tres passos 
ad i ante: 

1. Colocamos o segundo membro da igualdade da /inha 
1000 numa STRING. 

1000 LET F$ = "LN (INT (X + LN (x)))" 

2. Atribufmos a varictvel X o valor 10, que 6 o argumen- 
to da funqao FNR na I inha 1500. 

1499 LETX = 10 

3. Atribuimos a vartivel K, o valor (VAL) da STRING 
FS. 



1500 LET K = VAL (F$) 

Outras soluqoes podem ser uti/izadas. Como exercf- 
cio, tente "bo far" uma. 0 
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OQUE FOI A FEIRA DA INFORMATICA E O 
CONGRESSO? — Como esteve a Microhobby. 



PROGRAMAS DO LEITOR: 

Jogos Inteligentes ou Inteligencia Artificial 
A melhor maneira de escrever programas de jogos 
inteligentes em BASIC. 

Solupao de Equagao Algebricas e Transcedentes — 
Atraves do m^todo "de Bolzano ou de Bissecgao". 

PROGRAMAS DOMES: 

Burgo — 0 programa destaque na edigao nP 6. 

MUITAS DICAS E INFORMAQ0ES 

PEQUENOS ANUNCIOS — Envie seu pequeno anuncio 
para ser publicado gratuitamente. 

POR DENTRO DO APPLE: 

Velocidade e Economia 
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DESGRILANDO 




• Trecho da Carta de nosso leitor Alejandro Luis Cobos, publi- 
cada na segao CARTAS DE NOSSOS LEITORES, neste numero: 

. . . Se eu entendi direito, no programa de Alta Resolu- 
pao (nP 2) ha uma linha REM que fornece instrugoes em 
linguagem de m^quina. As linhas REM nao sao, entao 
ignoradas? Existe o risco de, ao se utilizar um REM (que 
pode ser "enfeitado" com algum caractere gr^fico), estas 
fornecerem alguma instru<pao nao desejada? 



Aqui est2 a sua resposta Alejandro: 

As linhas REM sao ignoradas peio micro, quando ele 
as le em BASIC (dessa forma, nao hi perigo em " enfeiti - 
las " com caracteres graficos). Note que 4 justamente o 
fato de serem ignoradas, que as tornam boas lugares pa- 
ra guardarmos programas em linguagens de miquina. 
Tais programas s6 serao lidos pelo TK se o instruirmos 
devidamente, atravis da fungao USR. 

Para compreender melhor o que dissemos acima, digi- 
te o programa listado a seguir, tendo o maximo cuidado 
para nao errar ao digitar os caracteres apos o REM da li- 
nha 1. Para nao haver duvidas, consulte a T ABE LA 1, 
onde eles estao mostrados em sequencia. 



1 REM E£RN‘D7,*- : 5 ? RETURN 7C™L 
EN *77*4. POKE ( LIST TftN 

2 POKE 16522 , 126 

3 POKE 16524- , 118 Fiqura 1 

4HPOKE 16522 , 112 9 

Ao introduzir os caracteres RETURN, POKE e LIST 
proceda digitando antes SHIFT THEN e depois apague 
os THEN's, movendo o cursor para tras usando, para is- 

so, RUBOUT. 



ATENQAO: Em hipdtese alguma traga a linha 1 REM 
para baixo com o comando EDIT. Caso voce ja tenha 
feito isso, digite NEW e comece novamente. 

Apds haver introduzido a linha 4, digite RUN e NEW 
LINE. Quando o 0/4 surgir na tela, digite LIST e NEW 
LINE. A linha 1 REM . . . de ve modificar-se ligeiramente 
e a listagem de ve ser a seguinte: 

1 REM E£RND?^-:5l?7$4 POKE t 

LIST TRN 

2 POKE 16522 . 126 

3 POKE 16524. , 1 IS 

4. POKE 16522,112 Figura 3 

Se tudo correu bem at4 aqui, complete o programa 
como mostrado adiante e ponha-o para rodar: 

1 REM E£RND7^- : 5|??$4 POKE < 

LIST TRN 

2 POKE 16522,126 

3 POKE 16524., 116 

4- POKE 16522,112 

10 FOR 1=0 TO 255 

20 PRINT CHR$ I; 

30 NEXT I 

4.0 FOR U=0 TO 4.0 

50 LET DESGRILfiNDOrUSR 16514. 

60 FOR K=0 TO 10 

70 NEXT K 
80 NEXT U 

20 print rt 20, 14.; •*fim” Figura 4 

Observe atentamente o que ocorre na tela. Voce digi- 
tou RUN e NEW LINE e o micro comegou a ter o pro- 
grama linha por linha, em BASIC. Vamos analisar como 
ele le cada uma delas ! 

TABELA II 
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Figura 2 



LINHA 


acAo do tk 


1 


IGNORA 


2 


Coloca o numero 126 no byte 16522 


3 


Coloca o numero 1 18 no byte 16524 


4 


Coloca o numero 1 19 no byte 16529 


10 a 30 


Imprime o conjunto de caracteres do TK atravts de 
um "Looping FOR-NEXT" 


40 


Inicia em "Looping FOR-NEXT " de 41 voltes. 


50 


Ele 16 essa linha normalmente at* encontrar a funpao 
USR , cujo argumento 4 o numero 16514. Quando a 
encontra, para de ler o programa em BASIC e cornea 
a M-lo em LINGUAGEM de MAQUINA, a partir do 
byta 16514. Acontece qua, juntamente nesse byta, an- 
contra se o cbdigo do primeiro caracter ap6s o REM 
da linha 1 (cbdigo do caracter E — 42). Prossegue 
lendo os bytes sucessivos (16515, 16516. etc.) em lin- 
guagem de miquina, at* encontrar, am um deles, o c6- 
digo 201 correspondente ao caracter TAN. Ap6s U-lo, 
o micro passa novamente a operar am BASIC, lendo a 
linha seguinte iquela em que encontrou a funpao USR 
(linha 60). 0 caracter TAN lido em linguagem de m4- 
quina, faz o computador voltar ao BASIC. 

Essa rotina am linguagem de mAquina, 6 a responsive 1 
pela inversao dos caracteres na tela. 


60 


Fecha o "Looping". 


70 


Apresenta "FIM" na tela. 
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Adiante, voce pode observar os aspectos da tela apos 
a I inha 30 e 70 serem lidas. 
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TEMPO 



0 mais recente langamento da MULTISOFT para o 
seu TK (TK82, TK83 e TK85). 

Emocionante aventura onde voc6 conduzir& o 
sapo desde o ponto de partida, at6 uma casa vazia. 

Voc& deverA cruzar a auto-estrada, sem ser 
atropelado e, em seguida, atravessar urn caudaloso 
rio pulando sobre tartarugas e troncos que passam flutuando. 
Para adquiri-lo e entrar para a galeria de recordes do 
pulo do sapo basta enviar carta com seu nome e 
enderegos completos, anexando cheque de Cr$ 
5.690,00, nominal A MULTISOFT INFORMATICA LTDA. - 
Cxa. Postal 54.121 - CEP 01296 - S3o Paulo - SP 




• Ten to participar desta revista expondo algumas duvi- 
das que tenho. Trata-se da subrotina da ROM do 
TK-82C, a qua! e chamada pela instrugao FF (RST 38). 
Meu TK mostra a seguinte sequencia de instrugSes a par- 
tir do enderego 0038H : 



0DC24500E1 05C8CBD9ED4FFBE9D1 C81 8F8. . . 



Apos decrementar "C", a rotina salta para o enderego 
0045 somente se a condigao for "Nao Zero". Entao, que 
sentido tem a instrugao do enderego 0046H (C8-Ret Z) 
apos a instrugao D1 (POP DE) se, de acordo com varios 
autores, a instrugao "POD DE" nao altera flags? Havers 
talvez alguma outra parte da ROM que "chame" ou que 
se "desvie" para o enderego 0045H? 

Outra coisa: - a instrugao D1 nesta rotina tem outra 
fungao que nao a de simplesmente retirar (eliminando) 
o enderego do topo da pilha (stack)? 

E possi'vel explicar, mesmo que resumidamente, o 
funcionamento do registro "R" nesta rotina? E como 
ocorre o chamamento automatico desta sub-rotina du- 
rante o processamento do display? 

Ainda sobre a ROM do TK, na rotina referentea gra- 
vagao de programas encontramos asseguintes instrugoes 
a partir do enderego 0352H : 




Que efeito tem a instrugao OUT logo apos a instrugao 
IN, no caso acima? E a porta FE, refere-se ao teclado? 
Quais as portas de entrada e de sai'da no TK? 

JOSE BISIOLI SOBR/NHO - Sao Paulo, SP. 



Prezado Jose, 

A instrugao POP DE nao altera as flags, e nem deve\ 
O RET Z baseia-se no resu/tado das flags geradas por ins - 
trugoes anteriores ao POP DE. Geralmente, as unicas ins - 
trugoes que afetam as flags convenientemente sao as ins - 
trugoes aritmeticas e as logicas (a/em, 6 claro, da instru- 
gao CP). Com relagao as outras duvidas, por exigirem 
respostas razoave/mente extensas, sugerimos a leitura 
dos livros "Introdugao a Linguagem de Maquina para o 
TK" - ASSEMBL Y Z80 - Vol. I e II - Flavio Rossini 
(Editora Moderna e Micromega). O volume / esta sendo 
langado (na Feira da Informdtica) e o volume II ainda 
nao tem data prevista de langamento. 

Infelizmente a maior parte das respostas as suas per- 
guntas encontra-se no volume II. 



O 



MICROHOBBY 5 




PROGRAMAS DO MES 





CALEIDOSCOPIO 



Para simular o efeito de um caleidoscopio na tela do 
TK, utilizem-se da regiao central da tela (24 x 24 posi- 
poes) dividindo-a em quatro partes. Numa das partes se- 
ra gerado, conforme voces poderao observar, em posipao 
aleatdria, um grupo de quatro caracteres iguais (tambdm 
escolhidos aleatoriamente), os quais devem aparecer 
imediatamente e simetricamente nas outras tres partes. 
Devido a velocidade requerida, utilizemos entao, uma 
subrotina em ASSEMBLY — que ser3 chamada pelo pro- 
grama em BASIC — para colocarmos os caracteres na 
tela. 

Comecemos pela subrotina em ASSEMBLY. Ela utili- 
zard dois numeros gerados pelo BASIC para calcular, a 
partir do DFILE — posipao inicial da tela de TV na me- 
mdria — onde colocar um caracter ealeatdrio no primei- 
ro quarto da tela. Este caractere ser3 repet ido por 4 ve- 
zes, em posipoes adjacentes e, a seguir, o mesmo grupo 
ser3 copiado simetricamente nos outros tres quartos da 
tela. Note que, ao tratar a tela de TV em linguagem de 
m^quina, nao existem linhas e colunas, mas sim posigoes 
de memdria. Por isso, nao estranhe os numeros gerados 
pelo BASIC. 

Vamos entao apresentar a subrotina seguida por um 
programa em BASIC, o qual permite coloc^-la no com- 
putador: 



MEM6RIA 


MNEMdNICO 


C6DIGO 


16514 


— 


'00' 


16515 


— 


'00' 


16516 


— 


'00' 


16517 


— 


'00' 


16518 


LD E, $ 


'1E00' 


16520 


LD HL, (D-FILE) 


'2A0C40' 


16523 


LDBC, (16514) 


'ED4B 82 40' 


16527 


ADD HL, BC 


'09' 


16528 


LDBC, (16516) 


'ED4B8440' 


16532 


SBC HL, BC 


'ED42' 


16534 


CALL TV4 


'CDC940' 


16537 


LDBC, (16516) 


'ED4B8440' 


16541 


ADDHL, BC 


'09' 


16542 


ADD HL, BC 


'09' 


16543 


CALL TV4 


'CDC9 40' 


16546 


LD HL, 758 


'21F602' 


16549 


LDBC, (16514) 


'ED4B8240' 



Flavio Rossini 



16553 


SBC HL, BC 


'ED42' 


16555 


LD (16514), HL 


'228240' 


16558 


LDHL, (D-FILE) 


'2A0C40' 


16561 


LD BC, (16514) 


'ED4B8240' 


16565 


ADDHL, BC 


'09' 


16566 


LDBC, (16516) 


'ED4B8440' 


16570 


SBC HL, BC 


'ED42' 


16572 


CALL TV4 


'CDC940' 


16575 


LD BC, (16516) 


'ED4B8440' 


16579 


ADD HL, BC 


'09' 


16580 


ADD HL, BC 


'09' 


16581 


CALL TV4 


'C DC 940' 


16584 


RET 


'C9' 


** SUBROTINA TV4 ** 




16585 


PUSH HL 


'E5' 


16586 


LD (HL), E 


73' 


16587 


INCHL 


'23' 


16588 


LD (HL), E 


73' 


16589 


LD BC, 32 


'01 2000' 


16592 


ADD HL, BC 


'09' 


16593 


LD (HL), E 


73' 


16594 


INC HL 


'23' 


16595 


LD (HL), E 


73' 


16596 


POP HL 


'El' 


16597 


RET 


C9' 



OBS. : Na memdria 16519, $ representa o caractere que 
ser3 enviado pelo BASIC. As coordenadas calculadas pe- 
lo BASIC, sao colocadas nas memdrias de 16514 ate 
16517. 

Este programa tern 84 bytes (se incluirmos os dados) 
e sera colocado dentro de uma instrupao REM, que deve 
estar obrigatoriamente na linha 1. Assim, comecem a re- 
servar pelo menos 84 bytes de memdria na linha REM: 

UREM 00000000000000000000000 

00000000000000000000000000000000 

00000000000000000000000000000 

(84 ou mais caracteres quaisquer) Figura 2 



Feito isto, apresentaremos um pequeno programa que 
Ihes possibilitarao colocar a subrotina em ASSEMBLY, 
dentro do REM: 
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l rem 000S000000ess0e03ee900e 

00000000000000000000000000000300 
00000000030000000000000000000 
5 LET <J = 16514 
10 LET P$ = ”" 

#5 IF fi*=" " THEN INPUT P$ 

20 IF R*="P" THEN STOP 
25 LET X=16*CODE R$+CODE PS (2) 
- 4-76 

30 POKE «J, X 
35 SCROLL 

4.0 PRINT ”MEM. ” ; U; ” “;R${ TO 

PI • " •• • Y 

‘"4-5 LET U=<J + 1 
50 LET R$=P*(3 TO > 

55 GOTO 15 

Figura 3 

Apos colocar o REM e o programa acima, no compu- 
tador, basta teclar RUN e NEW LINE e comegar a digi- 
tar os cbdigos da subrotina em ASSEMBLY, seguidos 

deNEW LINE: 

'00' NEW LINE 
'00' NEW LINE 
'00' NEW LINE 
'00' NEW LINE 
'1 E00' NEW LINE 
'2A0C40' NEW LINE 



73' NEW LINE 
El' NEW LINE 
'C9' NEW LINE 

Neste ponto, a ultima linha da tela dever^ estar indi- 
cando: 



MEM 16597 



C9 201 



Estes caracteres correspondem b membria onde esta 
sendo colocado o cbdigo (C9) e seu correspondente 
decimal (201). Digitando agora a letra P e NEW LINE, 
o programa para. Fagam LIST e NEW LINE para verem 
o que acontece com o REM . . . 

Vamos ver agora, o programa em BASIC que utiliza a 
subrotina ASSEMBLY para gerar o caleidoscopio. Este 
programa produzirb em mbdia, um tergo de caracteres 
normals; um tergo em vi'deo reverso e um tergo de espa- 
gos em branco, como demonstramos abaixo: 




‘ 1 REM E ” £ *E£RND GOSUB ?fcRN£> 
a* GOSUS ?%<ND GOSUB PILN TflN RNP 
SCSUB 75RMCWtLN TON RND5 plot ■ 
GOSUB TfcRND GOSUB P IofcRNDEfRND 
GOSUB ?|£ND« GOSUB T^tND GOSUB P 
ILN TflN RND GOSUB T^RNtWLN TPN 
RNDTPN FAST '?7?*4- W?7? LPRINT TP 

REM ** ChLEXBOSCOPKJ ** 

HEM FLhUXO ROSSINI - 1GS3 
SLOW 
RAND 

HIT 5 = ^ 6 t 6, t*J NT (6 *rnd> 

i6 * rnd) 

POisE 1651*, X -256 *INT CX72S6 

f^E^iesiS.INT <Xx256J 
( 192*RND) 

IF 2>t>3 PND 2 <120 THEN LET 
POKE 165I9, Z 

i6sis 

Figura 4 



) 



10 

15 

20 

25 

30 

35 

4-0 

4-5 

50 

55 

60 

65 

70 



Execute os programas — aperte RUN e NEW LINE. 
Se modificarmos convenientemente as linhas 50 e 55, 
poderemos obter um caleidoscopio que utiliza apenas 
caracteres gr^ficos: 

50 LET Z=INT C 17fRND ) +128iXHT 
C2*RND) 

55 IF Z>10 OR Z > 138 THEN LET Z 

= 0 

Figura 5 

Uma outra possibilidade para obtenpao do caleidos- 
copio 6 reduzir a gerapao de espapos em branco, supri- 
mindo a linha 55 e alterando a linha 50 para: 

50 LET Z = I NT (IliRND) +126f IMT 
C2*RND) 

Figura 6 

Ou ainda para tornar a tela menos carregada, utilizem 
a seguinte linha: 



5© LET Z=INT (10*RND>+i 

Figura 7 

Para tirar uma copia da tela na impressora basta digi- 
tar "Z", ap6s introduzir a linha: 

66 IF INKEY *="Z" THEN COPY 

no programa original. 




. . . Picture yourself in a boat on a river , 
With tangerine trees and marmalade skies 
Somebody calls you, you answer quite slowly 
A girl with kaleidoscope eyes . . . 

"Lucy in the sky with diamonds" 
John Lennon & Paul McCartney - 1967 

O 
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0 programa a seguir tem por finalidade ajustar uma ^ 
equapao, — cuja forma gen^rica 6 — : 

Y = C + Aj X + A 2 X 2 + . . . + A n X n 

a um conjunto de pares de valores dados, obtidos na 
maior parte das vezes por medipoes de campo ou labora- 
torio. 

Na equapao dada, temos: 

C = Constante 

Y = Variavel dependente 



REGRESSflO DE ORDEM N 

NUMERO DE PRRES DE PONTOS? 10 



X(l) = 10-5 
X (2) = 12.8 

X C 3 ) = 17.34 

X (4) = 20.78 
X (5) = 24.11 
X C6) = 27.92 
X C7) = 31.67 
X C S ) s 42.63 
X (9) = 50.9 

X (10) = 60.08 



V (1) = 23.7 
V (2) = 30.84 
V (3) = 42.01 
V (4) = 47.12 

V (5) = 60.73 
V (6) = 71.35 
Y (7) = 82.42 
Y (8) = 91.58 

Y (9) = 92.33 

Y C 10) = 95.15 



GRAU DR EOURCRO? 



V 



Aj , A 2 , . . A n = coeficientes da variavel in- Figura 1 
dependente X, X 2 X n . 



Resultados: 






J 



A seguir, apresentamos um exemplo da variavel inde- 
pendente por duas vari^veis, sendo X a variavel indepen- 
dente e Y a variavel dependente: 



X 


Y 


10,50 


23,70 


12,80 


30,84 


17,34 


42,01 


20,78 


47,12 


24,11 


60,73 


27,92 


71,35 


31,67 


82,42 


42,63 


91,58 


50,90 


92,33 


60,08 


95,15 



( CONSTANTE : 18 . 64 

COEF 1* GRRU: 1.5 

COEF DETERM R2 : 0.87 

INTERPOLRCRQ : CENTRE 0 PRRR STOP) 

X = 26.12 
Y= 58.08 

X = 0 

U. GUER RODRR OS MESMOS DADOS 
COM NOUO GRRU DE EOURCRO ( S/N)? 

Ln J 

Figura 2 



Pede-se para determinar a equapafo de grau 1 e de grau 
2, que ajusta aos pares de valores da tabela. 

0 programa foi elaborado de forma coloquial, nao de- 
vendo ocorrer dificuldades no seu uso. 

A primeira pergunta indaga sobre o numero de casas 
decimals desejadas na apresentapao dos resultados. 

Informe, por exemplo, 2. 

A seguir informe o numero de pares de pontos, no ca- 
so 10, introduzindo os mesmos. 

Ultima informapao requerida: grau da equapao?; in- 
forme 1 . 



Para permitir pesquisa da equapao (grau) que melhor 
se ajusta aos dados, dotou-se o programa da facilidade 
de novo processamento, com os mesmos pares de valores 
X, Y, sem a necessidade de reintroduzMos, o que se tor- 
na extremamente vantajoso quando a quantidade de va- 
lores for alta. Responda S (sim) a pergunta : 

"Voce quer rodar os mesmos dados com novo 
grau de equapao (S/N)?" 

Grau da equapao? 2 
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Resultados: 



CONSTRNTE: -IS. 92 

COEF 1" GRRU : 4..31 

COEF 2* GRRU : -.01 

COEF DETERM R2 : 0.99 

INTERPOLRCflO : CENTRE 0 PflRR STOP) 
X = 

Figura 3 

Nota-se, pela comparagao dos dois valores de R2 que 
a equagao de grau 2 se ajusta melhor aos dados, o que 
tamb^m pode ser comprovado tragando-se gr^ficos das 
mesmas, com os valores de X e Y. 

0 processo acima, poderd ser estendido at6 graus 5 ou 
6 da equagao. Lembramos que, £ medida que sobe o 
grau da equagao a precisao dos resultados decresce, fato 
gerado pelo numero de casas decimals com que 6 efetua- 
do o processamento. Nao confundir com as casas deci- 
mals fixadas anteriormente pelo usu^rio e que foram uti- 
lizadas unica e exclusivamente para a apresentagao dos 
resultados e nao para o processamento. 

A regressao linear 6 um caso particular da regressao de 
ordem N, onde o grau da equagao foi fixado em 1 . (Veja 
o exemplo anterior). 



1390 IF D<=6 THEN GGTO 14.56 
1406 SCROLL 
1410 PRINT 
1420 SCROLL 

1436 PRINT “HRIOR GRRU RDM IT IDO: 

1440 GOTO 1330 
1450 SCROLL 
1460 PRINT 
1470 SCROLL 

1480 PRINT ” INFORME O NUMERO DES 
EURDO DE" 

1490 SCROLL 

1500 PRINT "CRSRS DECIMflIS NR RP 
RESENTRCRO"; 

1510 SCROLL 

1520 PRINT "DOS RESULT RDOS : 

1530 INPUT H 
1540 PRINT H 
1550 PAUSE 160 
1560 CLS 
1570 FRST 
15S0 LET U=10*+H 
1596 DIM RC2+D+1) 

1600 DIM RtD+l.D+2) 

1610 DIM TCD+2) 

1620 FOR 1=1 TO atD+1 

1630 LET R C I) =0 

1640 NEXT I 

1650 FOR 1=1 TO D+l 

1660 FOR U=1 TO D+2 

1670 LET R (1,0) =0 

1630 NEXT U 

1690 NEXT I 

1700 FOR 1=1 TO D+2 

continue 



1000 CLS 

1010 REM REGRESSRO ORDEM N 

1020 LET F $ = " ( INT C (U+0.5/U) iU) ) 

/U" 

1030 SCROLL 

1040 PRINT "REGRESSRO DE ORDEM N 

1050 SCROLL 
1060 PRINT 
1070 SCROLL 

1080 PRINT "NUMERO DE PARES DE P 
ONTO S'? 

1090 INPUT N 

1100 IF N <2 THEN GOTO 1090 

1110 PRINT N 

1120 SCROLL 

1130 PRINT 

1140 DIM XCN) 

1150 DIM YCN) 

1160 FOR 1=1 TO N 

1170 SCROLL 

1180 PRINT "X ( ” ; I ; " ) = 

1190 INPUT XCI) 

1200 PRINT XCI), 

1210 IF XCI) <0 THEN GOTO 1210 
1220 PRINT "Y C“; I; ") = 

1230 INPUT YCI) 

1240 PRINT YCI) 

1250 IF YCI) <0 THEN GOTO 1260 

1260 NEXT I 

1270 GOTO 1330 

1280 CLS 

1296 PRINT 

1300 PRINT "RJUSTE SISTEMR DE CO 
ORDENADRS PRRR OBTER COORDENRD 

AS X E Y POSITIURS." 

1310 PRINT "DIGITE ""RUN"" PRRR 
REINICIRR . " 

1320 STOP 
1330 SCROLL 
1340 PRINT 
1350 SCROLL 

1360 PRINT "GRRU DR EQUfiCAG? "; 
1370 INPUT D 
1380 PRINT D 




LIGUE-SE A 
INFORM AT ICA 



FAQA COMO OS 

funcionArios DA 

ALCAN. XEROX, 
SCARLE, COPAS, 
INTELPA, DARUNG. 
AIR SERVICE: 



MATRICULE SE NA 
COMPUTADORES. 
CURSOS DE 



BASIC e COBOL. 

• Numero limitado de alunos por 
classe • 1/3 de todas as aulas com uso 
direto dos computadores. inclusive nos cursos de 
Cobol • Professores altamente qualificados • Cursos 
apostilados e a present a dos com transpar^ndas • Modem as 
instalacoes com v&rios equipamentos Dismac, Protogica, 
Sysdata entre outros • Pre^os extrema mente acessfveis. 




COMPUTADORES 



A NOVA MANEIRA DE 
APREND€R A PROGRAMAR 



NUCLEO I 

Av Pacaembu, 1.280 
Fonas: 66 7656/66 1 51 3 

V 



NUCLEO II 

R.TomAs Carvalhal. 380 
(Proximo EstacpAo MatrO Paralso) 
Fona: 570 6097 

— / 
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1*710 LET T{I)=0 

1720 NEXT I 

1*730 LET fl(l) =N 

1*74-0 FOR 1 = 1 TO N 

1*75© FOR 0=2 TO 2+D + l 

1*760 LET ft (<J) =R (vJ) +X C X) ** CU-1) 

1*7*70 NEXT U 

1780 FOR K = 1 TO D+l 

1790 LET R(K,D+2) =T(K) +Y(I) *>! (I) 
** (K-l) 

1800 LET T(K) =T(K) +VCI) 5X(I) 

- 1 ) 



181© 

1820 

1830 

184-0 

1350 

1860 

1870 

1830 

1890 

1900 

1910 

1920 

1930 

194-0 

1950 



LET T (D+2) =T CD +2) +Y(I) 

NEXT I 

FOR 0 = 1 TO D + l 
FOR K = 1 TO D + l 
LET R tO , K) =R (O+K-l) 

NEXT K 
NEXT O 

FOR 0=1 TO D+l 
FOR K=0 TO D+l 

IF R(K.O) <>0 THEN GOTC 1970 

NEXT K 

SLOU 

SCROLL 

PRINT " NRO HR SOLUCfiO UNICR 



1960 GOTO 2610 
1970 FOR 1=1 TO D+2 
1980 LET S=R(O.I) 

1990 LET R (0„ I) =R (K.. I) 

2000 LET R*K,I)=S 

2010 NEXT I 

2020 LET Z=1/RC0,0) 

2030 FOR 1=1 TO D+2 
204-0 LET R(0,I)=:Z*R(J,I) 

2050 NEXT I 

2060 FOR K=1 TO D+l 

2070 IF K=0 THEN GOTO 2120 

2080 LET Z = — R CK , O) 

2090 FOR 1=1 TO D+2 

2100 LET R CK . I) =R (K.. I) +Z+R (J, X) 
2110 NEXT I 
2120 NEXT K 
2130 NEXT O 

214.0 SLOU 
2150 SCROLL 
2160 PRINT 
2170 SCROLL 

2180 PRINT "CONSTRNTE : " , 

2190 LET U=RCl,D+2) 

2200 PRINT URL F$ 

2210 FOR 0=1 TO D 
2220 SCROLL 

2230 PRINT '* COEF •• : O *. GRRU “ 

224.0 LET U=P CU+l,D+2) 

2250 PRINT URL F$ 

2260 NEXT O 

2270 SCROLL 

2280 PRINT 

2290 LET P=0 

2300 FOR 0=2 TO D+l 

2310 LET P=P+R CO, D+2) * (T CO) -R (O) 
*T ( 1) /N) 

2320 NEXT O 

2330 LET D=TlD+2) -T(l) tt2/N 

2340 LET Z=Q-P 

2350 LET I =N — D — 1 

2360 SCROLL 

2370 PRINT 

2380 LET U=P/Q 

2390 SCROLL 

2400 PRINT "CGEF DETERM R2: *' . URL 

F$ 

2410 SCROLL 
2420 PRINT 
2430 SCROLL ^ 

24<t0 PRINT “INTERPOLRCRO: (ENTRE 

0 PRRR STOP) M 

2450 SCROLL 

2460 PRINT 

2470 LET U =R ( 1 . D +2 ) 

2480 SCROLL 
2490 PRINT "X = " 

2500 INPUT X 
2510 PRINT X 



2520 IF X=© THEN GOTO 2610 
2530 FOR 0=1 TO D 

2540 LET U=IJ+R (0 + 1 . D+2) tXftO 
2550 NEXT O 
2560 SCROLL 

2570 PRINT , ’Y= ";URL F$ 

258© SCROLL 
2590 PRINT 
260O GOTO 2470 
2610 SCROLL 
2620 PRINT 
2630 SCROLL 

2640 PRINT "U. OUER RODRR OS MES 
MOS DADOS" 

2650 SCROLL 

2660 PRINT "COM NOUG GRAU DE EOU 
ACAO ( 3/N)7” 

267© SCROLL 
26SG PRINT 
2690 INPUT 

270© IF 0$="S" OR Q$="5IM" THEN 
GOTO 1350 
2710 SCROLL 

2720 PRINT ”U. OUER RODRR O PROG 
RAMA COM- 
2730 SCROLL 

2740 PRINT •* NGUOS DRDOS CS/N)7 ,# 
2750 INPUT 

2760 IF Q$=“S” OR C$="SIM" THEN 
RUN 

2770 STOP 

2780 SRUE " REGRESSRQ DE ORDEM fiB” 
2790 RUN 
2800 STOP 



o 
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Localizar astros, nebulosas, galaxias ou quatquer obje- 
to no firmamento, nem sempre 6 uma tarefa f^cil para 
os astronomos amadores. As vezes, por nafo estarem bem 
familiarizados no reconhecimento das constelapoes e em 
outras devido & pequena luminosidade destes astros, o 
que dificulta ou atb impede a sua localizagao visual. 

Este programa 6 uma util ferramenta quando se deseja 
localizar qualquer ponto na esfera celeste fornecendo, 
uma dada hora solar, & hora sideral correspondente. 

Para aqueles que nao estejam bem familiarizados com 
os elementos usados no c^lculo, bem como sua termino- 
logia, aqui vao algumas explanapoes: 

0 tempo necesseirio para o Sol cruzar 2 vezes conse- 
cutivas urn determinado meridiano 6 chamado "Dia So- 
lar", que b constitui'do, por convenp§o, de 24 horas 
solares. 

Quando o Sol est3 sobre o nosso meridiano seu angu- 
lo hor^rio, H, 6 nulo e nosso relbgio marca 12 horas ou 
meio dia. Matematicamente podemos escrever: 

t = H + 12 

onde: 

t = tempo solar local 

H = angulo horbrio do Sol medido em horas solares. 

Em analogia & hora solar pode-se definir a Hora Side- 
ral. 0 dia sideral 6 o intervalo de tempo decorrido entre 
duas passagens consecutivas de qualquer estrela por urn 
determinado meridiano e, tern por convenipao 24 horas 
siderais. Mas os astronomos nao usam, qualquer estrela 
para medir a Hora Sideral. Existe um ponto fictfcio cha- 
mado Ponto Vernal ou Ponto y (gama) e, b atravbs do 
angulo horbrio deste ponto que se mede a Hora Sideral, 
com uma diferenpa em relagao ao tempo solar; nao se 
adicionam 12 horas ao angulo horbrio do ponto vernal. 
Matematicamente podemos escrever; 

T = H 

onde; 

T = tempo sideral 

H = angulo horbrio do ponto vernal medido em horas 
siderais. 



PROGRAMA DO LEITOR 



HORA SIDERAL 

Fernando L. Fogliano 

£ f3cil constatar-se que o dia sideral e cerca de 4 mi- 
nutos menor que o dia solar. Desta forma, o ponto ver- 
nal e todas as demais estrelas cruzam o meridiano de um 
determinado local aproximadamente 4 minutos maisce- 
do que no dia anterior (movimento anual da esfera ce- 
leste). 

Para se localizar um ponto qualquer na esfera celeste, 
os astronomos criaram um sistema semelhante ao siste- 
ma de coordenadas geogr^ficas (longitude e latitude). £ 
o chamado Sistema Equatorial de References. Neste sis- 
tema o astro possui, analogamente ao sistema geogr^fi- 
co, duas coordenadas, a saber: Ascenpao Reta e Declina- 
pao. Para melhor se compreender estes elementos, pode- 
mos fazer uma analogia entre Ascenpao Reta e Longitu- 
de Geogr^fica e, Declinapao e Latitude Geogr^fica. Va- 
mos definir entao, o que significam estas coordenadas: 

Ascensao Reta a - £ a distancia em ho- 
ras siderais, contadas a partir do ponto vernal, sobre o 
Equador Celeste, ao Cfrculo HorSrio de um astro qual- 
quer no sentido oeste-leste. Varia de 0 a 24 horas. 

Desta definipao vemos que o ponto vernal 6 a origem 
das ascensoes retas, dai' a necessidade de local iz3-lo cal- 
culando a Hora Sideral. 

Declinapao 6 — £ a distancia em graus, 

medidos sobre o Ci'rculo Horbrio, a partir do equador a 
um determinado astro. A declinapao varia de 0° a 90° 
Norte e de 0 a“90° ao Sul. 




Dados de alimentapao do micro-computador 

1 Hora Sideral a 0 Hora de Grenwich — Tempo Univer- 
sal HS0 — Este valor pode ser encontrado no AnuSrio 
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Astronomico do Instituto Astronomico e Geofi'sico da 
Universidade de Sao Paulo, na segao Sol, sob o ti'tulo 
"A 0h T.U. HORA SIDERAL". Este valor nos fornece a 
posigao do ponto vernal, quando for 0 Hora em 
Greenwich. 

2. Longitude — £ uma das coordenadas geogr^ficas do 
ponto onde se d3 a observagao. £ dada em horas, minu- 
tos e segundos. Para que se faga a conversao de graus em 
horas, basta relacionar: 24 horas — 360 graus; 1 hora — 
15 graus. 

3. Fuso Hor^rio — £ o fuso hor^rio no qual nos encon- 
tramos, positivo a oeste de Greenwich e negativo a leste. 

4. Hora Local - £ a hora solar na qual estamos queren- 
do calcular a hora sideral. 

Para Sao Paulo, a longitude 6 aproximadamente tres 
horas, 6 minutos e 30 segundos e o fuso hor^rio e de 
tres horas; valor este que vale para toda a faixa Atlantica 
brasileira. 



13© 

14-0 

150 

163 

1*70 

100 

24 

19G 



GG5UB 300 

LE7 HLDEC=DEC 

LET TU=HLOEC+FUSQ 

LET DELT5rTUio66 . 25/365 . 25 

LET TSG=HSDEC +DELTS 

IF TSG >24- THEN LET TSG-T55 - 

IF T5G<0 THEN LET T5G-TSG+2 



203 LET T 5L=T SG -LDEC 

210 LET R = (TSL-INT (T5L) *i *6© 

22C LET B= tP.- INT (R) ) ^63 
23© SLOU 

24-© print rt 10 , 1 ,'R horr sioer 

RL LOCRL E* : M ;fiT 12.3. INT T5L) ; 
RT 12, 13; "HORR5" . RT 14 , 3; ZNT ifO 
; RT 14 , 13; ** M INUTOS ” ; RT 15 . 3 ; B . RT 
15, 13; “SEGUNDOS" 

250 PRINT RT 18.3; “UOCE SUER CR 
LCULRR R HCfRR SlDERfiL LOG 

RL PRRR OUTRO IN5TRNTE? < S 

Ni " 

270 IF I MKEY*="S'' THEN GOTO 10© 
25© IF INKEY$s M N M THEN STOP 
220 GOTO 27© 



10 PRINT RT 1.1; 



2© PRINT RT 3.1;' 
R HORR 5IDERRL R 
TEMPO IJNIUER5RL: " 
30 G05UB 3©Q 
40 LET HSDEC=DEC 
50 PRINT RT 3.1;’ 
ONG1TUDE” 

50 GOSUB 300 
*70 LET LDEC =DEC 
6© PRINT RT 3,1; ' 
USO HORPRIO” 

90 INPUT FUSO 
110 CLS 

120 PRINT RT 3*1;' 
ORR LOCRL “ 



i ssaSsssBe-^ 

INTRODUZR 
0 HORR DE 



INTRODUZR R L 



INTRODUZR O F 



INTRODUZR R H 



300 


FR ST 






310 


PRINT 


RT 


6,1 ; "OUftL R HORRT" 


320 


INPUT 


H 




330 


PRINT 


RT 


*7,4; H 


34© 


PRINT 


RT 


6 .. 1 ; " GURtfT a£ >\ INUT 


GST" 








350 


INPUT 


M 




360 


PRINT 


RT 


9 , 4 ; M 


370 


PRINT 


RT 


10., l; * QURNT OS SEGU 


NDOS?" 






350 


INPUT 


S 




390 


PRINT 


RT 


11.4,5 


400 


LET D 


sMfS/60 


41© 


LET E 


=D/60 


420 


LET DEC =i 


H fE 


430 


PRUSE 


50 




440 


CLS 







450 RETURN 



COM PREQOS ESPECIAIS DE LAN CAMENTO 

EXPANSOES LplAk 

A FORCA INTELIGENTE PARA SEU MICRO 



I0PLAK: Placa In/Out. transforma seu micro numa 
central de comando programado, com 8 entradas e saidas 
Controla reles. motores. trenzinhos eletricos, etc. 

Prego especial: Completa CrS 55.000,00 

BIPLAK. Placa Bip, assegura teclagem correta por 

aviso sonoro. Pode ser programada para assinalar passagens 

de jogos, apoes de programas e muito mais. 

Prepo especial: Completa CrS 42.000,00 

CARAPLAK: Placa de Caracteres. produz os grafismos 
que V. quer e os introduz em qualquer programs 
£ urn sucesso na microcomputapao. nos E.U.A. e na Europa 
Prepo especial: Completa CrS 65.000,00 

PLAKMAE: Placa de conexao. permite o uso simultaneo 
de varias placas TplaK e qualquer outro periferico que se 
liqa diretamente aos micros TK (82. 83 e 85). 

Sua aquisipao assegura urn desconto 

direto de CrS 5.000,00 na compra de qualquer outro 

produto TplaK. 

Prepo especial: Completa CrS 38.000,00 



ESTES PREQOS SAO VAUDOS ATE IS DE NOVEMBRO 
SO ATENDEMOS PEOIOOS PELO CORREIO 



Fapa agora mesmo sua encomenda. usando o cupom abaixo. 

para garantir esses prepos de lanpamento 

Dentro de 30 dias V. recebe a mercadoria pelo Correio, 

abre a embalaqem e instala imediatamente a placa TplaK 

no seu micro. £ facil como conectar uma expansao 

de memorial Mas. para receber a mercadoria o mais 

rapidamente possivel. siga as instrupoes abaixo: 

• Preencha o Cupom de Pedido com letra de forma legivel. 

• Fapa um cheque no valor da encomenda. em nome de: 

TplaK Eletronica Industria e Comercio Ltda. 

• "Cruze" o cheque, fazendo dois riscos paralelos. 

• Ponha o cheque e o cupom em' um envelope, e envie-o para 
TPLAK ELETRONICA Cx. Postal 452 CEP 09000 - Sto. Andre - SP 

• Aguarde at6 30 dias para receber seu pedido pelo correio. 





Produto 


IOPLAK 


BIPLAK 


CARAPLAK 


PLAKMAE 




Ouantidade 












ELETRONICA INDUSTRIA E COMERCIO LTDA 
Rua Cisplatlna n.° 768 

Cx Postal 452 - CEP 09000 - Sto. Andre - SP 



CUPOM DE PEDIDO 

A TPLAK ELETRONICA INDUSTRIA E COMERCIO LTDA. 

Sim. pego enviar-me pelo Correio. dentro de 30 dias, os produtos abaixo 



Total CrS: 



NOME: 
ENDEREgO 
TELEFONE: 
ESTADO 
CHEQUE N.°: 



CEP CIDADE: 

MICROCOMPUTADOR 
VALOR: 
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aula 5 



CURSO DE 



BjSdIOB TK 




Nesta aula, iremos introduzir um novo tipo de racio- 
ci'nio usado para elaborar programas: trata-se de um ra- 
ciocmio GRAFICO que facilita a "visual izagao" de um 
programa'e cuja utilidade torna-se evidente” quanto 
mais complexo for o programa a ser realizado. 

Este raciocfnio 4 denominado FLUXOGRAMA ou 
DIAGRAMA DE B LOCOS e baseia-se no fato de as- 
sociar, a cada id6ia b^sica usada em programagao, um 
si'mbolo; sendo que, os varios si'mbolos sao interligados 
por linhas orientadas, que indicam o fluxo deexecugao 
do programa. Outra vantagem deste m^todo 6 a sua uni- 
versalidade; de fato, como as id6ias basicas de qualquer 
linguagem sao as mesmas, uma vez feito um programa 
em diagrama de blocos, ele poder3 ser facilmente "tra- 
duzido" para BASIC, FORTRAN, ASSEMBLY, COBOL 
ou qualquer outra linguagem, desde que ela nao esteja 
estruturada (o significado deste termo nao pode ser ex- 
plicado num curso introdutdrio como este). 



Atd o presente, as iddias basicas vistas por n6s foram 



a. Entrada de dados por teclado: 

(BASIC = INPUT) 



b. Saida de dados para a tela: 

(BASIC = PRINT) 



c. Loops: 

(BASIC = FOR/NEXT) 



SI'MBOLO 




Fig. 1 




d. Instrugoes matematicas utilizando 
vari^veis de memdria e comandos 



diretos: 

(BASIC = LET/C LS/R AND/ 

/+/— /Etc.) 



e. I n i'cio de programa 

f. Fim de programa: 



Flavio Rossini 



■ j Fig. 4 

(T) Fig. 5 

Q Fig. 6 



LANQAMENTO 



PA8SAOEM PARA 0 INPINITO 

Sensacional Jogo onde voce tentara encontrar e sair com um fabuloso tesouro em um 
complexo labinnto, guardado por terrivets polvos monstros e com mais de 400 pas 
sos Para ajudA lo. voc* contara com algumas espadas que garantirAo sua sobrevi 
vencia na luta com os monstros e com os pnsioneiros encarcerados nas vAnas pas 
sage ns que )he tndicar4o o cammho a segutr Totalmente em linguagem de m4quina 
com graficos fantasticamenie animados e ires mveis de dtficuldade para desafi4 lo 
Prego Crt 7 000 00 

MIDWAY 

Uma grande guerra mondial esta sendo iravada nas 4guas do AUantico Voce agorae 
o comandanie do submarino aiomico MIDWAY, sua miss4o desiruir todas as bases 
immigas em 4guas brasileiras Cutdado com os navios. aviOes e mmas espalhados pe 
los invasores Para auxiha lo poder4 contar com uma frota de navios de reabasteci 
mento. v4nas bases aliadas e um compuiador de bordo Um grande desafio com gra 
ficos e v4naa rotmas em linguagem de m4quina Prego Crl 6 000.00 



- JORNADA NAS ESTRXLAS 



A sua nave interplanetary ENTERPRISE necessila hvrar a gal4xta dos invasores 
Klingon e voce, como comandanie da nave lera a 4rdua missAo de deslrui loa Um 
jogo famoso no mundo lodo em uma de auaa melhores yersOes pela Softkrislian com 
efeitos graficos sensacionais Prego Crl 5 0£><5 00 



s.* dimensAo- 



Agora voce JA pode ler um fliperama emseu microcompulador em2* DIME NS AO dots 
logos agiiadissimos para lestar sua coordenaglo mo lor a Em SPACE INVADER voce 
tern os origmais invasores alacando sua nave e em ASTEROID voce deve pousarem um 
planeta e. para tanlo deverA ultrapassar os obsiAcu los que vAem 4 sua f rente teniando 
desirul lo Grandes jog os em linguagem de mAquina Prego Crl 5 000.00 



VISITA AO CA8SIN0 



Quairo grandes jogoa em um sO caga rtlqueis, roleu. 21 e perseguigAo falal fazem 
parte deste sensactonal conjunto Todoa os jogos com gr4f icos e rotmas em linguagem 
de mAquina. para voc# que gosta de aposiar e torcer Prego Crl 5 000,00 



■XO JOGOS EXCItANTES PARA 1 K- 



Dez pequenos jogos para voce incremeniar e aprender bastante os efeilos de progra 
magAo de Jogos e trabalhoe com video Se voce nAo diapOe da expansAo de 1 0 K JA pode 
rA ter eniretenimentocom esta sensacional fiia Se voce JA dispOe de 16 K compre para 
mcrementA los e lerA excelentes jogos Prego Crl 4 000.00 



Comp*e conosco de ouaique' pane oo Biasii sem 
despesas adioonais envianoo um cneque eui/a 
doe nominal a kRiSTiAN EIEJRQniCA iida injo 
piecisa vimi I e gatania o receoimenio de nosso 
mlotmaiivo NOViOAOES KRiSTiAN totalmente 
gratuito 



Rua da Lapa, 120 grupo 505 
Dels 252 9057 232 5948 
CEP 20021 Rio de Janeiro RJ 



Todas as f lias vAo em embalagem lacrada. com gravagAo prof issional. para sue faran- 
tia. A Kristian irocarA qualquer fits que seja enviada. com defettos de fabncsgAo 
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ENGENHARIA 
DE SISTEMAS 
E COMPUTADORES 



N 

Especializada em: 

• Desenvolvimento e implantagSo de 
sistemas (em laboratdrios de an£lises, 
Imobili&rias, lojas, ...) 

- Servigos de Consultoria 

- Comercializagao de programas e 
microcomputadores (JR • SYSDATA, 

TK - MICRODIGITAL, MICRO ENGENHO, 
PROL6GICA) 

- Cursos de BASIC e ASSEMBLER Z-80 

- ImplantagSo e/ou coordenagao de 
cursos de programagao em escolas. 



ENSICOM 

ENGENHARIA OE SISTEMAS E COMPUTADORES 




V 



J 



R. Marques do Herval, 409 - 1.° andar • sala 15 
tone 33-2944 Taubat6 • S. Paulo 



g. Continuagao do fluxograma, 

quando nao ha espago f isico: Fig. 7 

* qualquer sfmbolo sem ser 

I, F ou R. 

Vamos apresentar agora um Outro conceito, talvez o 
mais importante em programagao: a tomada de decisoes 
por parte do computador! Esta 6 uma ordem que torna 
o computador capaz de decidir — baseado numa condi- 
gao especi'fica — qual "caminho" seguir naexecugao de 
um programa. Esta caracteristica £ que faz com que o 
computador seja chamado de "maquina inteligente". 
0 simbolo utilizado para tomada de decisoes 6 o da fi- 
gura seguinte: 




PAUSA 



~ 

CLS 

T 

Fig. 9 



Note que a ideia de tomada de decisao, ao contr3rio 
das demais, implica em uma "entrada" e pelo menos 
"duas saidas” (todas as outras tern apenas uma entrada 
e uma sai'da) Surge assim, uma pequena dificuldade ao 
tentar passar este programa para o BASIC, pois as instru- 
goes sao escritas sequencialmente, ou seja, numa unica 
"dimensao”. A instrugao de decisao tern a seguinte 
forma: 

IF ICONDIQAOl THEN |FAQA ALGO| 

Fig. 10 

Caso contreirio, prossiga para a proxima instrugao. A 
key word IF esti na tecla U e o THEN na tecla 3. Note 
que esta estrutura 6 a unica que permite o aparecimento 
de duas key-words numa unica instrugao; de fato< ap6s o 
THEN, o cursor volta a indicar Q 
Vamos entao ao nosso programa: 




Fig. 8 

Para exemplificar, fagamos um programa que "per- 
gunte" um numero, coloque-o na vari^vel N e escreva na 
tela BELEZA, se o numero for maior do que 100 e 
ALEGRIA, em caso contr^rio. Este seria o FLUXO- 
GRAMA: 



10 


PRINT 


“ESCOLHR UH NUMERO" , 


20 


INPUT 


N 


3© 


PRINT 


N 


40 


PRINT 




50 


IF N> 


100 THEN GOTO 100 


se 


PRINT 


"RLSGRIfi" 


TG 


PRUSE 


150 


60 


CLS 




3© 


GOTO 


10 


10G 


PRINT 


"BELEZh” 


lie 


GOTO 


70 



Fig. 11 
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Na linha 50 o TK toma a decisaio: se N > 100; caso 
contr^rio, prossegue para a linha 60. (0 si'mbolo > est3 
na tecla M). 

Perceba como 4 mais simples normalizar o programa 
em diagrama de blocos. Note que o GOTO nao tem sim- 
bolo especial: ele corresponde & uma linha orientada. 
Vale a pena salientar tamb^m que nao e necess^rio in- 
cluir detalhes nos fluxogramas: por exemplo, no progra- 
ma anterior o comando de pular linha, nao foi inclui'do. 
Apenas as id^ias principais devem ser "desenhadas"; isto 
facilita a visualiza<?ao. 

Antes de continuar com mais exemplos de utilizapao 
do fluxograma, vamos apresentar mais duas instrupoes. 
0 TK tem duas velocidades de trabalho: uma lenta 
(SLOW) e outra r^pida (FAST). Quando ele opera em 
SLOW, ele se preocupa em executar o programa e, ao 
mesmo tempo, mostrar os resultados na tela; em FAST, 
ele ''esquece'' a tela e os resultados so sao apresentados 
durante uma PAUSA, ou no final do programa. Natural- 
mente, cada uma tem suas vantagens e tudo depende de 
cada caso. Quando o TK 6 ligado ele automaticamente 
opera em SLOW. No entanto, para digitar um programa 
e mais conveniente usar a velocidade mais r^pida; de fa- 
to experimente digitar: 

LET X = 1234567690 1234567690 

Fig. 12 



A seguir, digite FAST (shift F) e NEW LINE e repita 
a operapao acima: (OBS.: Para entender bem estes co- 
mandos, execute os programas dados na aula 3 em 

SLOWeem FAST). 

Vamos entao fazer um programa que "chuta” um nu- 
mero; voce ter3 que adivinh^-lo no menor numero de 
tentativas possi'veis. 



L1VROSPARA TK, 1\'E Z, CP 



r 

TRiniTA JOGOS 

INCLUINDO PROGRAMAS EM CODIGO LIS 
TADOS POR IMPRESSORA 

JOGO DE DAMAS, LABIRINTO, GUERRA 
NAS ESTRELAS, ENTERPRISE , PAREDAO, 
DEMOLIDOR, VELHA, pASSINO, ROLETA 
RUSSA, CORRIDA DE CAVALOS, GOLF, 
VINTE E UM, CUBO MAG I CO , SENHA , BAN 
CO IMOBILIARIO, BOMBARDEIO, SOM 

POR SOFTWARE, ETC 

LANPAMENTO CR$ 4.000,00 

APUCACOES SERIAS 

FOLHA DE PAGAMENTO, BALANCETE ,CON 
TAS A RECEBER, A PAGAR , CORREpAO 
MONET ARIA DAS CONTAS DO BALANpO , 
CORREpAO DAS CONTRIBUTES DO I. 
A.P.A.S., CADASTRO DE CLIENTES , 
CONTA BANCARIA, TABELA PRICE, ESTA- 
TISTICA, CORREpAO DE PROVAS, EDITOR 
DE TEXTOS.RAM TOPER , SUB-ROTINAS 
EM CASSETTE, CHAINING PROGRAMAS, 
CONTANDO OS BYTES DAS LINHAS, DO 
PROGRAMA, DAS MAT R I Z ES , ECONOM I ZAN 
DO MEMORIA, ETC... ETC... 

CR$ 4.800,00 




Figura 13 

continua 



45 PROGRAMAS 

ARQUIVOS.ESTOQUE, PLANO CONTABIL , 
AGENDA TELEFONICA , INVASORES , APAGUE 
A TRILHA, CApA AO PATO, JOGO DA VE 
LHA, FORCA, DADO, TABELAS , TABUADAS, 
CONVERSAO DE COORDENADAS, MEDIA, FI 
BONACCI , PROGRESSAO , BIORRITMO , RE 
NUMERADOR DE LINHAS EM CODIGO, ETC. 

7i EDipAO Cr$ 4.000,00 



MICRON 

ELETRONiCA COMERCIO E INDUSTRIA LTDA 
Av S Joac ^elefone 22 4194 S. Jose dos Campos 
Es!. de Sao Paulo 
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O que, em BASIC, ficaria: 

10 ROND 

IS LET X=INT (letRND) +1 
20 PRINT "RDIUINHE UH NUHERQ D 
E 1 O 10 OUEEU UOU CHUTRR" 

30 LET 1=1 
4.0 INPUT O 
50 CLS 

60 IF R>X THEN PRINT *'G NUH » Q 
UE EU ChUTEI E < DO ©UE ** . fi 

70 IF R<X THEN PRINT "O NUH. © 
UE EU CHUTEI E > DO QUE ";R 

60 IF «<>X THEN GOTO 100 
90 GOTO 130 

100 PRINT "TENTE OUTRR UEZ” 

110 LET 1=1+1 
120 GOTO 4-0 

130 PRINT "VOCE. RCERTQU EH ** .1; 

" T ENT RT IURS ** 

Execute o programa! Perceba o uso da vari^vel I 
como "contador" de tentativas. 0 si'mbolo < > est3 na 
tecla T e o si'mbolo < est3 na tecla N. 

Este programa poderia ser escrito mais "elegantemen- 
te", eliminando a linha 90 e substituindo a linha 80 por: 

80 IF R=X THEN GOTO 130 

Figura 14 



CURSOS: 

Introdugoo 6 informdtica 
Programa<;ao em linguagem basic 
Programagao estruturada 
Microcomputadores - conceitos e recursos 

Pregos especiois para grupos fechados 

(empresas, associagoes, escolas, etc.) 



r 



AD DATA 

Comdrcio e Serv/go s de Informdtica 

Microcomputadores pessoais, 
profissionais e empresariais 
Desen vol vi mento de aplica<;6es especificas 
(engenharia, medicina e odontologia) 

Consulte a lista de software AD DATA 



SHOW ROOM 

Rua Amelia Noronho, 181 - Pinheiros - CEP 05410 - 

Tels.: (Oil) 853-7209/282-0562 



SP 




OCt^ 

CURSOS de PROGRAMAQAO 

(para criangas e adult os) 

Vrr^ 

SO AULAS PRATICAS 

METODO APRENDA - FAZENDO 



Rua Paraibuna, 80 - (ao lado da Fundagao) 

SAO JOSE DOS CAMPOS 
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PROGRAMA DO LEITOR 



CABO COAXIAL 

OU ANTENA ‘A e Vi ONDA. 



Sin4sio Amorim Filho 



Este 6 um programa simples, compativel aos micros 
de 1 K byte , onde o radioamador ou projetistas de ante- 
nas podem calcular rapidamente o multiple* de onda pa- 
ra c^lculo do comprimento do cabo coaxial a ser usado 
em uma estaqao transceptora e at6 mesmo o compri- 
mento de uma antena para 1/4 ou 1/2 onda. £ um pro- 
grama de acesso r^pido, onde a m^quina questiona o 
operador sobre qual o servipo a ser executado — utilizan- 
do-se de uma linguagem comum, e Ihe responde 
resultando deste di^logo, um bate-papo entre operador 
e m^quina. 

Logo apos voce ter passado o programa, pressione o 
RUN e NEW LINE e aparecer^ um cabepalho do progra- 
ma, seguido da linha abaixo de uma pergunta: "Voce 
quer o c^lculo do cabo ou antena?". Dependendo de sua 
necessidade, digite um ou outro, mas observe o seguinte: 
se voce digitar algo diferente de cabo ou antena, a m3- 
quina rejeitar^ e imprimis o seguinte: "Voce digitou er- 
rado, digite CABO ou ANTENA". Num determinado 
passo do trabalho, a m^quina perguntar^ a frequencia 
a ser calculada, na qual dever^ ser digitada apenas a fre- 
quencia direta, pois a mSquina j3 est3 programada para 
trabalhar em MHz. Exemplo: Para dois metros, dever3 
ser digitado apenas 144 ou no caso, uma frequencia es- 
peci'fica 144.75. Se voce digitar 144000 a m^quina en- 
tenderS 144Ghz. 

Observapao: Apos ter digitado qualquer resposta ao 
computador, sempre pressione NEW LINE. 

Agora Maos h Obra . . . 



5 REM 
983” 

10 PR 



‘ SINES IO AMORIM FILHO 1 




-UOCE QUER O C 
DO CABO OU A 



20 PRINT 
30 PRINT 
40 PRINT •' 

ALCULOTO- 
NTENA?” 

50 INPUT A* 

55 PRINT 

56 CLS 

60 IF A*«"CABO” THEN GOTO 100 
65 IF A*«" ANTENA" THEN GOTO 25 

0 

70 IF A*< > "CABO , ANTENA" THEN G 
OTO 200 

75 CLS 

76 PRINT 

77 PRINT 

100 PRINT "OK...UOCE QUER O CRL 
CULO DO CftBO" 

101 PRINT 
108 PRINT 

110 PRINT "Q URL R FREOUENCIR?" 

180 INPUT X 

181 CLS 



130 PRINT *' — PRRR ft FREQUENCIA D 
C X; "HHZ. . 

135 LET Us30Q/X 
14.0 LET ZsU>.66 
14.5 LET P«Z/4 
14.8 PRINT 

149 PRINT 

150 PRINT 
155 PRINT 



11 tst 

ETROS” 

lB^PRXNTT 

166 PRINT 

167 PRINT 

168 PRINT 

169 PRINT 
ALCULO?" 



..O FATOR E P; ” M 



170 


INPUT 8* 


171 


CLS 


175 


IF B*="SIM" 


180 


IF BJs-NAO” 
PRINT 


181 


182 


PRINT 


183 


PRINT 


185 


PRINT ” 


RD07 

186 


PRINT 


187 


PRINT 


188 


PRINT 


189 


PRINT ” 


190 


STOP 


200 


PRINT "UOCE 



QUER MAIS ALGUM C 



THEN GOTO 40 
THEN GOTO 165 



ESPERO TER RUUD 



TCHAU . . . M 

UOCE DIGITOU ERRADO , 
DIGITE CABO OU ANTEN 

A” 

210 PRINT " 

IB** 

215 GOTO 50 

250 PRINT ” OK... UOCE QUER ANTEN 

A 1 ' 

253 PRINT 

254 PRINT 

255 PRINT "QUAL A FREQUENCIA7" 
260 INPUT V 

265 CLS 

270 LET R=142.5/Y 
275 LET U«R/2 

277 PRINT 

278 PRINT 

279 PRINT "PARA A FREQUENCIA DE 
"; V; "MHZ. . . " 

283 PRINT 

284 PRINT 

285 PRINT 
290 PRINT 

^95^ 

;u; ” 

3C~ 






PRINT "O COMPRIMENTO E DE 



310 



PRINT 



i R .* 

4SS. 



WPfW^^E O COMPRIMENTO E OE 
” METROS PARA 1/2 ONDA" 

— 



344 PRINT 
350 GOTO 169 
355 SRUE "CALCULB" 
360 RUN 
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Ao se teclar um programa em um TK82, 83 ou 85 e 
ap6s carregb-lo em fita, sempre resta ao usubrio uma 
indagapSo: "Como saber se todo o programa foi teclado 
corretamente ou se a transference da fita para o compu- 
tador foi perfeita?" ... A verdade 6 a seguinte: Mesmo 
que apenas um caractere seja confundido ou apenas um 
bit alterado durante a carga, estes sao motivos suficien- 
tes para que o programa seja executado com erro, ou at6 
mesmo nao rode na m^quina. 



PROTEJA SEU 
MICRO 




ZENTRANX 



ELETRdNICA. industria e comErcio ltda. 

NO BREAK ESTABILIZADORES DE TENSAO 

Rua Ellas Mahtuz, 22 • CEP 04746 • Santo Amaro ■ SP 

Tela.: (011) 522-2159 e 545-0651 



A forma que propomos para conferir o conteudo da 
membria b a Soma Sintbtica (efetuada apds o programa 
ter sido teclado ou carregado da fita). 

A Soma Sintbtica, consiste na adipao dos valores de 
todos os bytes de um programa que fornecerb um total 
tal, a ser checado todas as vezes que o programa for car- 
regado. Nos nossos programas, a parti r do numero seis 
de Microhobby - passaremos a informar a Soma SintS- 
tica de cada programa, que deverb ser conferido com o 
valor fornecido pelo seu computador. 

Como o programa que executa a Soma Sintbtica n§o 
deve alterar o conteudo do seu programa original, opta- 
mos por faze-lo em linguagem de mbquina, o que nos db 
ainda a vantagem de uma maior rapidez de execupbo. 
Ademais, impomos tres condipoes para a execupbo de 
um programa: 

1. 0 programa nbo poderb estar em uma sentenpa REM, 
pois muitos programas em BASIC, utilizam subrotinas 
em mbquina no REM (Enderepo 16 514). 

2. 0 programa nbo estando na brea de mem6ria destina- 
da ao BASIC, deve ser providenciada uma maneira de 
salv^-lo em cassete. 

3. 0 programa dever2 ser recolocado na mem6ria, de 
forma a ser utilizado em 2, 16 ou 64 K RAM. 

Decidimos entao, colocar o programa dentro de uma 
sentenpa REM, transferindo-o para uma local izapSo de 
membria escolhida acima da cirea reservada ao BASIC. 

Para criar sua fita com a funpao Soma Sintdtica, voce 
deve executar os seguintes passos: 

1. Tecle o programa da listagem 1 para carga de cod i go 
hexadecimal. 



LISTRGCM - 1 

10 REM 00000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
0000000 

20 LET X$a**" 

30 LET X al8514 
4-0 IP THEN INPUT Xft 

BO IP Xj ( 1) ■•'3” THEN STOP 
60 PRINT X* (1 TO »>;- "7 

2) 3®70? KC *' (1 ®* CODC $<*+C06e X*C 

SO LET X-X+l 
90 LET XK>X$ (3 TO ) 
lOO GOTO 40 
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2. Execute o programs dando entrada no codigo hexade- 
cimal da listagem 2. 



LISTRGCH - a 



CD 

0C 

40 

IB 

00 

R7 

PD 

CD 

40 

78 

40 

B0 



S3 

40 

an 

CD 

40 

CD 

00 

6B 

PD 

0C 

21 

CD 



0F 


21 


7D 


40 


ED 


50 


FD 


21 


00 


00 


CD 


09 


10 


40 


ED 


SB 


14 


40 


RQ 


40 


FD 


E5 


FD 


21 


CD 


20 


0F 


Cl 


C9 


E5 


5S 


ei 


CO 


4E 


06 


00 


23 


1.3 


F2 


21 


27 


00 


04 


40 


19 


FD 


21 


90 


75 


01 


FD 


74 


02 


FD 


FD 


74 


0D 


FD 


21 


00 


02 


40 


01 


35 


00 


ED 


40 


04 


40 


C9 


S 





Em caso de erro, recomece a segunda etapa. 

3. Tecle POKE 16510,0. NEW LINE. Seu programs apa- 
recerb como a listagem 3 

LISTRGEH - 3 

LN 7757RND GOSUB 7CRND 

CI_e«R S |_N. BRNDEtRND GOSUB ?=RN 

O.LN SftND CLEAR FflST CLERR S RND 

RT - 



LN F7 „ . , 

T COS CLERR m?Z. PRUSE SB GO 

SUB ?« RND; CLERR SHRND CLERR 7» 
CLERR 2." CLERR ?£ CLEAR 7* CLERR 
8 RNDSfcRND* P GOSUB ■ GOSUB 7* R 
NDTRN 

20 LET X**"" 

30 LET X>16514 

40 IF X*« ,,M THEN INPUT X* 

80 IF X$ (1) ■ "S" THEN STOP 
80 PRINT X*C1 TO 2);" 

POKE X , 7 IS #CODE Xft+CODE X* C 
8 i *476 ) 

B0 LET X-X + l 
00 LET Xf*X«(3 TO ) 

100 GOTO 40 

Apague as linhas 20 a 100 e tecle: 

LISTRGEH - 4 
10 SRUE "SOHR" 

16814 RINT ‘ ,SOMR » int PTICR« ,, ;USR 

30 PRINT "CONFERE7 S/N" 

40 IF INKEY *■"5" THEN GOTO SO 
80 GOTO 40 

60 PRINT "SOHR SINTRTICR NO EN 
DERECO 

70 INPUT RTP 

80 POKE 16389 , INT CRTP/256) 

00 POKE 16388 ,RTP-INT (RTP/256 

I *886 

100 PRINT USR 16667 

110 IF INKEY THEN GOTO 110 

180 NEU 

4. Salve a versao final da Soma Sintbtica, teclando RUN. 
Assim ela estarb pronta para ser usada. 

A versao gravada na fita, ao ser lida corretamente, de- 
verb mostrar a seguinte mensagem: 



TflN FRST 
CLERR 



a 



SOHR SINTRTICR 



2SS2S 



Para usar esta mensagem, tecle o enderego para o qual 
voce quer baixar o RTP — Ex.: "Se voce tern 16K, 
30000" — o programs responderb com o mesmo valor. 
A Soma Sintbtica serb entbo obtida com: 

PRINT USR (enderego que voce escolheu). 



“^UVRARIA 
SISTEMA 



8 



Av. SAo Lutz, 1 53 - Lj. 8 - 1 .“ Sobreloja • Galena Metrbpole 
Tela.: 257-0118 e 259 1503 Sio Paulo SP 



-SEMPRE NOVIDADES 



1 0 MICROCOMPUTADOR NA PEQUENA EMPRESA 

40 PROGRAMAS PRONTOS E COMENTADOS PI TK82C • 

. TK8 5 CP200 - POR CARLOS LAGROTTA FILHO 3.800. 

r 2 - 30 JOGOS P/TK82 E CP200 Delio Santos Lima 4 000. 

3 PROGRAMANDO SEU COMPUTADOR Jogos 

Aplicativos - UtilitAnoa 5.200, 

4 - 0 MICROCOMPUTADOR NO CONSULTORIO MEDICO 

Lull Gonzaga Nascimento 5.200, 

^5 GATEWAY GUIDE TO THE 2X81 AND ZX80 

70 PROGRAMS Charlton 18.850. 

_^6 ■ THE ZX81 COMPANION - Real time gcaohics - Monitor 

listing - Maunder 17.400, 

7 - THE TIMEX - SINCLAIR 1 000 IDEA BOOK Ah 1 1 3.000. 

8 • UNDERSTANDING MICROCOMPUTERS Personal 

computer 5.250, 

9 implantacAo DE MICROS E MINICOMPUTADORES 

COMERCIAIS Knight 3.900, 

10 MICROCOMPUTADORES P/ APLICACOES COMERCIAIS 

Barden Jr 5.390, 

-•'■1 1 THE BEST OF SYNC • 80 creative applications programs 14.500. 

12 MICROCOMPUTADORES E MINICALCULA DORAS SEU 

USO EM ClfNCIAS E ENGENHARIA Royo dos Santos 7.200. 

^-13 • GETTING ACQUAINTED WITH YOUR ZX81 More than 

80 programs 17.400. 

14 - USER'S HANDBOOK TO THE TRS-80 MODEL III 

COMPUTER Weber 20.000, 

15 - GETTING ACQUAINTED WITH YOUR VIC20 More than 

50 programs 16.000. 

1 6 NOVO ABC DOS COMPUTADORES - Lytel 3.500. 

17 • 1001 THINGS TO DO WITH YOUR PERSONAL 

COMPUTER Mark 15.000, 

18 PROGRAMMER’S GUIDE TO CP/M Lrt>es 19.000. 

^19 TIMEX PERSONAL COMPUTER MADE SIMPLE 

Guide timex / Sinclair 1000 5.250, 

20 INTRODUQAO AO VISICALC Garbin 3.540. 



SOLICITE POR REEMBOLSO POSTAL 
CAIXA POSTAL 9280 
CEP: 01051 - SP. 



Lembre-se agora de carregar a fita "SOMA" antes de 
teclar ou carregar seu programa. Ap6s informar oende- 
rego limite da membria utilizada, tecle qualquer tecla 
para limpar a brea do BASIC. 

Convbm observar que a Soma Sintbtica checa o pro- 
grama e as varibveis — caso elas existam — e portanto de- 
ve ser usada imediatamente apbs a carga do seu pro- 
grama. 

Em programas que iniciam rodando apbs a carga, b 
conveniente proceder como estb especificado abaixo; 
onde XXX, YYY e ZZZ sao linhas do seu programa: 

1 PRINT "SOMA SINTATICA = 

2 PRINT USR (enderego escolhido) 

3 PRINT "CONFIRA E TECLE NEW LINE 
PARACONTINUAR" 

4 PAUSE 6E4 (6x10 4 ) 

f : 

Seu Programa ; 

XXX STOP 

YYY SAVE "Nome do seu programa" 

ZZZ GOTO 1 

Ao salvar seu programa, anote a Soma Sintbtica junto 
ao nome do programa, no rbtulo da fita. Caso o progra- 
ma, ao ser carregado, nao de o mesmo valor, carregue-o 
novamente. q 
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TEMPO DETtEAQAO 



Carlos Eduardo R. Salvato 



Uma das consequencias da ingestao de 2lcool pelo ser 
humano 6 a perda do senso de auto-cri'tica: por isso rara- 
mente um bebado admite que est4 bebado. 

Imagine a seguinte situa<pao: Voce como anfitriao de 
uma festinha de s^bado £ noite. Um de seus convidados, 
visivelmente "alto", pega as chaves do carro e resolve 
voltar para casa. £ 6bvio que voce tenta demove-lo da 
id6ia, mas ele, como est3 bebado, nao tern consciencia 
do perigo e teima em sair. Qual a solupao? peg^-lo pela 
curiosidade e desafio frente a um computador. Uma su- 
gestao: Desafte-lo a medir a rapidez de seus reflexosem 
um TK. Logo o desafio vai se general izar e todos os seus 
convidados estarao competindo para quebrar o recorde 
(Aqui na reda^o, a Nancy 6 a nossa recordista e 
foi aclamada como um exemplo da bbvia superiorida- 
de feminina). 0 desafio proposto a todos ir3 permitir 
que voce sirva um caf6 sem apucar ao seu amigo e aos 
demais convidados, dissipando assim, os "vapores eti'li- 
cos", sempre presentes em reunioes de s^bado £ noite". 

Ao iniciar o programa, o computador coloca as ins- 
trupoes na tela. Digitando "S", tente comepar. 



ESSE PROGRAMS UR I MOSTRAR OS RE- 
SULT ADOS DE 10 TESTES DE REACAO . 



UUANDO "S" FOR PRESSIONADO UM 
NUMERO ALEATORIO IRA* APARECER NO 
OUADRADO ABAXXO . ENTRE COM O NU- 
MERO O MR IS RRP ID AMENT E POSSIUEL 
ISSO ACONTECERA* ATE* O DECIMO 
TESTE SER COMPLETADO. 

RPOS O GRRF ICQ , D IG ITE NEU LINE. 



NUMERO 




Figura 1 



ele desaparece e outro algarismo aparece no quadrado. 
Ao terminar o teste, o computador apresenta os resulta- 
dos abaixo: 



TESTE DERERCRO 

RESULT RDOS : - 

+ RRP IDO : 0.1 

+ DEURGRR : O . 4- 

MEDIR :- 0.24-5 

MEDIR + RRP IDR 
0.24-5 
POR NRNCV 




Se voce obteve o tempo mais r^pido (ou se voce foi 
o primeiro), seu recorde ficar2 registrado por toda a 
eternidade. . . (ou seja, at6 o computador ser desligado). 
Voce poderd registrar o recorde, gravando outra vez o 
programa em outra fita, usando o seguinte comando: 

GOTO 1070 

Ap6s digitar o programa da listagem anexa, jogue pelo 
menos uma vez, iniciando com um RUN. A seguir, grave 
o programa em fita usando o seguinte comando: 

GOTO 1070 



No quadrado, aparecera um algarismo de 0 a 9 e voce 
deve digit^-lo o mais rapidamente possi'vel. Acertando, 



Este programa pode ser rodado num TK82ou TK83 
com expansao; num TK85 ou similar. 
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10 REM 
20 SLOU 
30 LET P =100000 
4.0 DXM N C 10) 

50 CLS 
60 RfiND 

70 LET 0=106000 
80 LET S=0 
90 LET R=0 

100 PRINT RT 4..©; “ESSE FROGRRMR 
URI MOSTRRR OS RE — ” 

110 PRINT RT 5.0; “SULTRDOS DE 1 
0 TESTES DE RERCRO • ” 

120 PRINT RT 9.0; '* OURNDO ””S”” 
FOR PRESS IONRDO UM*' 

130 PRINT ”NUMERG RLERTGRIO IRR 
* RPRRECER NO" 

14-0 PRINT "OURDRRDO RBRIXG.ENTR 
E COM O NU — ” 

150 PRINT "HERO O MRIS RRPIDRME 
NTE POSS IUEL ** 

160 PRINT ‘TSSO RCONTECERR* RTE 
■ O DECIMO TESTE SER COMPLETRDC 

176 PRINT ” RP05 O GRRF ICO . D IG IT 
E NEU LINE.” 

180 PRINT RT 16 . 16; 

196 PRINT RT 17,16; 

200 PRINT RT IS . 16; ”f 

216 PRINT RT 19.16; 

220 PRINT RT 20,15; “f 

230 PRINT RT 13.5; ” NUMERO 

24-0 POKE 164-37.255 
250 PRUSE 30000 

260 IF INKEV $ = *’ S *' THEN GOTO 250 

270 GOTO 24.0 

230 FOR K = 1 TO 10 

290 PRINT RT 13,18;” ” 

300 FOR 0=0 TO INT (RND*60) 

310 NEXT O 

320 LET R=INT (RND+10) 

330 PRINT RT IS . 16; R 

34.0 FOR T =0 TO i©0000 
350 POKE 16437.255 

366 IF CODE INKEY $=R +28 THEN GO 
TO 330 




53© 

59© 

606 

810 

00 



IF N (K) >3 THEN 
LET R=R+N(K) 

NEXT K 

LET P = ( INT ( (R* 160 > 



LET S = N ( K ) 



+ .5) 3 /10 



Neste verao 
coloaue seu filho na 
era da informatica. 

Ou deixe-o descansar 
no passado. 

• Cursos de informdtica especiais para estudantes de 

1? e 29 graus 

• Cursos ©specials para fdrias, e tambdm aos sdbados 

• Club© do Micro, equipodo com os melhores 

m icrocom pu t ado res 

• Palestras. Conferdncias, Semindrios 

• Biblioteca ©specialized© 

• Programas educacionais 

• Consultoria e Assessoria Empresarial 

• Cursos especiais para microempresdrios 

Voce pode contar com o CENADIN para mais 

Informa^des sem compromisso, em Sdo Paulo, 
pelo telefone 287-4716 ou via correio. 

cci\«\dir\ 

CENTRO NACIONAL DO DESENVOLVIMENTO DA INFORMATICA 

Rua Jos6 Maria Lisboa, 580 - Jd. Poulista 
Tel.: (OU) 287-4716 * CEP 01423 • Sflo Poulo -SP 



ENDEREQO 
CIDADE: 



_ ESTADO 



_CEP: . 



700 

710 



370 


NEXT T 




720 


330 


LET NCK) 


=T 


73© 


390 


NEXT K 




740 


400 


CLS 




75© 


410 


PRINT RT 


1, l; ’TESTE DE RERC 


760 


RO” 






770 


420 


PRINT RT 


ro 

M 

II 

II 

II 

II 

II 

fl 

11 

II 

II 

II 

II 

II 

II 


7S0 


= = " 






790 


430 


PRINT RT 


4, l; ’’RESULT RDGS : - 


DR” 


•• 






800 


440 


PRINT RT 


5 , “ 


81© 


45G 


PRINT RT 


7 , 0; ” + RRP IDO _ ; 


820 


460 


PRINT RT 


9.6; + DEvPGRR ; 




47© 


PRINT RT 


12 . 0; ’MEDIR . 


830 


430 


PRINT RT 


21.22; ” . .TESTES . . ” 


840 


490 


PRINT RT 


5 . i 9 ; ”T” ; RT e . 19: ” 


850 


E. " ; BT 7,19; 8,19; -P” 


360 


50© 


PRINT RT 


14, 19; ”S”; RT 15, 19 


87© 


. 


RT 16,19 


; ”G”; RT 17,19; ”S” 


880 


510 


FOR 0=2 


TO 20 


89© 


52© 


PRINT RT 


0,21; 


900 


530 


NEXT O 




910 


54© 


LET R=0 




920 


550 


FOR K = 1 


TO 10 


93© 


560 


LET NCK) 


= C INT C (NCK) / .02) + . 


94© 


5) > /1EI0B 




950 


570 


IF NCK) < 


O THEN LET Q=N(K) 


96© 



970 

9oC» 

990 

1000 

1610 



620 


PRINT 


RT 


*' f 


li; Q 




1020 


S3© 


Pk INT 


RT 


9 , 


1 1; S 




103O 


640 


PRINT 


RT 


12 


. 1 1 R 




1040 


6S0 


LET B 


= C INT 


C (0* . 9) *19) ) 


10 


1050 


660 


LET C 


= C INT 


C (S*X . 1) * 10} J 


1C 


X06© 


670 


PR TNT 


RT 


20 


, 17 : B 




1070 


630 


PRINT 


RT 


2 . 


17 : C 




1030 


69© 


PRINT 


RT 


11 


, 17; (E +C) / 2 




1090 



LET Ds(C-B) /36 
FOR 0=1 TO 10 
LET E=(NlO) -B) /D 
FOR Z=2 TO E+l 
PLOT 4.3+ (2*0) , Z 
NEXT Z 
NEXT O 

IF R < F THEN GOSUB S5G 

IF R<F THEN LET F=R 

PRINT RT 16,0; "MEDIR + RRP I 

PRINT RT 13. 5; F 

PRINT RT 20,1; “POR ”.R* 

IF INKEY $ < > ” ” THEN GOTO 4.0 

GOTO S20 
LET R = 0 

LET B$=*E UOCE OBTEUE B” 

LET C$="HEDIR + RRPIDR” 

LET D $ = ” ENTRE COM NOME” 

LET E$ = ” 

PRINT RT 16 . 0 ; E * 

PRINT RT 20.0;E$ 

FOR 0=0 TO 20 
NEXT O 
LET R=R+1 
PRINT RT 1S.0;C$ 

PRINT RT 16;©.B$ 

PRINT RT 20.0;D$ 

FOR 0=0 TO 20 
NEXT O 

IF R<3 THEN GOTO 890 

INPUT R$ 

IF LEN R $ >10 THEN GOTO 1000 
FOR 0=16 TO 2© STEP 2 
PRINT RT 0.0; E$ 

NEXT G 
RETURN 
STOP 

SRUE "REGCF* B” 

GOTO 4.0 
STOP 
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QUEBRA-CABEQA 




L.G.M.: 

MENSAGEM DE VEGA ? 



MENSA 

International 




A idbia de contactar civilizapoes de outros "mundos" 
nao 6 recente entre os homens. Deixando de lado as 
crendices populares e as mediocridades publicit^rias, a 
imaginapao humana chegou a produzir muitas obras so- 
bre esse assunto. Cl^ssicosliter^rioscomo "Micromegas", 
de Voltaire; "Histbria Comica dos Estados e Impbrios da 
Lua e do Sol", de Cyrano de Bergerac e "Da Terra a 
Lua" de Julio Verne sao, juntamente com urn grande 
numero de "Science Fiction", bons testemunhos de boa 




Esta seqao conta com a colabora^ao dos membros da MENSA INTER* 
NACIONAL — brasileiros e estrangeiros residentes no Brasil. 

A MENSA 4 uma orgamzaqao sem fins lucrativos, originAria da Inglater- 
ra e que conta com milhares de membros espalhados pelo mundo inteiro. 
Entre estes, podemos citar Isaac Asimov, Arthur C. Clarka, Clive Sinclair 
e o recentemente falecido R. Buckminister Fuller (o poeta que inventou a 
Cupula Geodtsica). 

Os principals objetivos e bases de atuagio da MENSA sao: promover 
e encorajar o desenvolvimento da into ligincia humana para beneffcio da 
humanidade. incentivar a pesquisa sobre a nature za e promover um am- 
biente socialmente estimu/ante para seus sdcios. 



Renato da Silva Oliveira 

Tambbm nos meios de comunicapao de massa, sao 
inumeros os exemplos da procura de outros mundos, co- 
mo a novela radiofonica "Guerra dos Mundos" narrada 
por Orson Welles , no in icio do sbculo . Esta novela te- 
ve maior repercussao que os "contos de fadas" cinema- 
togrbficos "Close Encounters" e "E.T." de Steven 
Spielberg que, por assim dizer, invadiram facilmente a 
Terra aproveitando-se da boa vontade das pessoas. 

Atb mesmo o "Gran Circo EEUU" produziu, bem ao 
seu estilo, um famoso relatbrio sobre possi'veis seres ex- 
traterrestres no famoso "Livro Azul" da U.S. Air 
Force. 

Como n§o poderia deixar de ser, os cientistas produzi- 
ram, tambbm, alguns trabalhos (provavelmente os mais 
sbrios e audaciosos), sobre sua velha idbia, assim que sur- 
giram oportunidades propi'cias. Desde grandes equivo- 
cos, como os "Canais Artificiais de Marte" e os "Little 
Green Men (L.G.M.)" atb as mensagens levadas pelas 
sondas PIONER X e XI e VOYAGER I ell. 




Para o mgresso na MENSA 4 necessano apenas que o Candida to se 
submeta a um teste homologado pela MENSA INTERNATIONAL, supe- 
ran do o nivel m4dio de in tel t gin ci a de 98 por cento da humanidade. 

Informagdes a respeito. podem ser obtidas atravds de carta enviada para 
esta segao . no seguinte enderego: 

MICROHOBBY 

SEQAO QUEBRA-CABEQA 

Rua Bahia, 1049 

Cep 01244 — Sao Paulo 
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Provavelmente, um dos mais interessantes empreendi- 
mentos cienti'ficos visando a comunicagao com possi'veis 
seres extratejrestres, foi a mensagem enviada ao espago 
com o radiotelescdpio de Arecibo em Puerto Rico (o 
maior radiotelescdpio de espelho esterico do mundo, 
com cerca de 305 metros de diametro). 




Figura 3 



0 interesse dos cientistas em contactar com outras 
(possi'veis) civilizagoes n§o 6 gratuito. 

Apesar de altamente improv^vel, a pequena chance de 
sucesso justifica o esforgo desprendido. Atualmente, 
atrav^s de uma equagao simplificada, obtida pelo radio- 
astronomo Frank Drake na d^cada de 60, estima-se que 
dentre aproximadamente 200 bilhoes de estrelas de nos- 
sa gal3xia, cerca de um milhafo (menos de 0,001 por cen- 
to) tern condigoes de abrigar civilizagoes tecnologica- 
mente desenvolvidas. Mesmo sendo otimista e supondo- 
se que todas elas sejam "povoadas", a probabilidade de 
conseguirmos nos comunicar 6 ainda desprezivelmente 
pequena. 



N = R * . fg . f p . ne . f i . ft . L 

Equapao de Frank Drake 



onde: 

N = numero de civilizagoes tecnolbgicas da Galaxia 
R* = taxa m$dia de formapdes de estrelas da Galaxia 
fg = frapao de estrelas com condipdes de possuir sistemas planetar ias 
fp = frapao de estrelas que possuem um sistema planetArio 
ne = numero de planetas habitiveis por sistema planetirio 
fe = probabilidade de surgimento de vida num planeta 
fi = frapao de planetas habitftveis com vida inteligente 
ft = probabilidade de uma civilizapao desenvolver tecnologia 
L = longevidade de uma civilizapao 



Figura 4 

De certo modo, estamos fazendo - com algumas 
desvantagens a vez do macaco dos versos de Sir 
Arthur Eddington, transcrito no ini'cio deste artigo. O 
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CURSOS 
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macaco pelo menos sabia que tocar musica 6 possi'vel, 
enquanto nds (humanos), nao sabemos sequer se exis- 
tem outras civilizagoes al6m da nossa. 

Se voce teve paciencia de ler tudo at6 esta linha, ao 
menos justifique seu trabalho lendo ainda as que se se- 
guem. Voce ver3 que tudo se relaciona ao tema de nos- 
so "Quebra-Cabega" deste mes: "L.G.M. ou Mensagem 
de Vega?". 

Citamos, de passagem, o equi'voco cienti'fico dos 
"L.G.M.(s)". Essa sigla surgiu para os quatro primeiros 
pulsares descobertos: L.G.M. ; LGM 2 , LGM 3 e LGM 4 . 
0 primeiro deles foi descoberto em meados de 1967 
por uma jovem radioastronoma, Jocellyn Bell, atravfe 
do radiotelescbpio da Cambridge University. Esses 
"objetos" sao notados, devido as intensas e regulari's- 
simas emissoes de micro-ondas que deles nos chegam 
(em geral cerca de uma por segundo). A esperanga qua- 
se religiosa dos astronomos em detectar vida fora da 
Terra, fez com que batizassem — oficiosamente — , as 
quatro primeiras dessas fontes, de ' Little Green Men", 
pensando tratar-se de "sinais inteligentes". Logo, po- 
r6m, muitos outros pulsares foram descobertos e o equi'- 
voco "L.G.M." foi desfeito. Hoje, sabemos que os pulsa- 
res sao provavelmente, estrelas neutronicas em alta rota- 
gao. 

Essa estoria ilustra, muito bem, a boa vontade e o 
entusiasmo dos cientistas em admitirem como possi'vel 
a comunicagao com civilizagoes extra-terrestres (se elas 
existirem, 6 claro!). 

continue 
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+ 50° | 



Kl& 



+ 400 — _ ♦ 

' *- 



+ 30 ° 



+ 20 ° 



L.G.M. • 

0 Quebra-Cabe^a deste mes surgiu de uma esto- 
ria semelhante: . 

'"Urn dos nossos leitores, o Sr. Nabor Rosenthall, 
construiu em seu sitio proximb a pequena*cidade de 
Sao Tom6, um radiotelescepjo* "caseira", a qual ' 
tem, acoplado, um TK85. No primeiro dia de*setem- 
bro dftste ano, precisamente cntre as 21 e $3 horas, 
ele recebeu uma s6rie de pulsos de micro-ondas, pro- 
venientes de um ponto do c6u cujas coordenadas 




De9p|ao: 5 = N 38° 46' 
AsceSpao Reta: a= 18 h 36' 8" 



Essas sao, exataTnente, as coordenadas da estre- 
la ocLyrae (Vega). • • 

Com a intehgencia e perspicacia caracten'sficas de 
nossos» leitgpfe o Sr. Nabor percebeu que, se.as- 
sociasse — durante os quais recebia os 

pulsos 1 (um) e aos periodos "mudos' # 

entre os ptda&s; associasse o valor 0 (zero), obteria 
um* sequencta de uns e &ros, aparentemente regu- 
lars que se repetiria, mais ou menos a cada uma 
bora. • 

Assim sendo, o Sr. .Nabor, por nao ter ainda con- 
cluso&s convirlcentes, resolveu nos escrever para que 
pud£ssemos auxilia-lo a chega* a tal conclusao e 
tamb6m solicittfunos que tentassemos obter infor* 
ma^oes com outros leitores, a respeito da seqiiervcia: 
"se e/a 4 ou nao uma mensagem e em caso positive, 
qual o seu significado?". 

A sequencia est£ listada a seguir e o Quebra-' 
Cabeqa consiste em— com o auxilio do TK tfes- 
cobrir se ela 6 um novo equivoco do tipo "L.G.M." 



ou se 6 rqjlmente uqja mensagem*"E.T.", prove- 
niente de Vega. Se a respesta for positiva, voces 
devem decod«fic£-la e interpretar o seu sig/iificado. 

A ordem em que os^jphos (0s e Vs) foram rece- 
bidos sao indicados pelas setas no inicio e no fim da 
Ifttagem. s 0 0 
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DICAS 




Aqui est3, num artigo escrito por nossa analista de 
Software, a resposta da carta escrita por nosso leitor 
Fernando Jo$6 Strobel, que pedia informapoes a respei- 
to de gravapao de fita de dados. Um pedapo do texto da 
carta era o seguinte: "Pepo que a sua revista publique 
um artigo, explicando a armazenagem de dados em fita, 
como um exemplo bem complexo, com fichas logicas 
e fichas f fsicas". 



Para resolvermos sua duvida a respeito das funpoes 
de armazenamento para o TK85, fizemos um programa 
utilizando os comandos DLOAD, DSAVE, DVERIFY 
e o mesmo pode ser feito para os comandos DHLOAD 
e DHSAVE, mas em Hi-Speed. 

Atrav6s desses comandos, 6 possi'vel o armazenamen- 
to e a recuperapao de informapoes numa fita cassete, 
permitindo assim, o uso de um grande arquivo de dados. 
Esses comandos sao utilizados com a funpao USR, 
acompanhada do enderepo inicial da subrotina, em lin- 
guagem de m^quina do comando a ser utilizado. 



COMANDO 


ENDEREQO 


FUNQAO DE CADA 


INICIAL 


COMANDO 


DSAVE 


8288 


Gravapao do arquivo 


DVERIFY 


9816 


Verifica a gravagao 


DLOAD 


8305 


Lfi a fita e armazena no buffer 
indicado 


DHSAVE 


9008 


Grava na fita em Hi*Speed 


DHLOAD 


9189 


L§ a fita em Hi-Speed 



Para melhor compreensao, dividimos o programa em 
vcirias partes, portanto, digite todas as linhas exatamente 
como est§o, porque elas formarao, no final, o seu 
programa mestre. 

0 programa comepa armazenando os enderepos de ca- 
da subrotina, em linguagem de cada comando: 



PROGRAMA 1 

4- LET DSRUE=S38S 

5 LET DUERIFY =9816 

6 LET DLORD=3385 

7 LET DHSAUE =9033 
3 LET OHLOftD^ieS 

Figura 1 



Vamos inicialmente criar uma ficha ffsica com 10 fi- 
chas Idgicas. Mas, o que £ uma ficha f I'sica? E uma ficha 
I6gica? 



AS FUNQOES 
"D" DO TK85 



Nancy Mitie Ariga 

Suponhamos que voce deseje um arquivo com nomes 
e telefones. Um determinado nome com o seu respectivo 
telefone, formam uma ficha logica. Um grupo de fichas 
idgicas (no nosso caso 10) formam uma ficha f i'sica. 

1 2 10 


















nome 


telefone 


nome 


telefone 


nome 


telefone 



ficha I6gica 



ficha fisica Figura 2 

Digitando o programa 2, voce criar3 uma ficha fisica 
que, posteriormente ser3 gravada. Cada ficha ibgica, con- 
tera um nome com no maximo 15 di'gitos e um telefone 
com no maximo 8 di'gitos que serao armazenados no 
buffer, formando a ficha f i'sica (B$) que podera conter 
no maximo, 230 bytes. 

1 ficha I6gica -*• 15 bytes do nome + 8 bytes do 
telefone = 23 bytes. 

1 0 fichas logicas -*■ 230 bytes 



programa a 

1000 REM CRIRCRO DE FICHA FI5ICA 

1005 CL5 

1010 DIM (230) 

1030 DIM N$tl5) 

1030 DIM T$tS5 

104.0 LET R=1 

1050 POR 1=1 TO 10 

1050 SCROLL 

1070 PRINT “NOHE="; 

10S0 INPUT NS 

1000 PRINT NS 

1100 SCROLL 

1110 PRINT “TELEF.s"; 

1130 INPUT TS 
1130 PRINT TS 
1140 SCROLL 
1150 PRINT 
1160 LET CS=NS+TS 

1170 LET BStfi TO R+LEN C$-l) =C$ 
1160 LET R=R +LEN C$ 

1130 NEXT I 
1300 SCROLL 

1310 PRINT "FICHA FISICR COMPLET 

R 

1313 SCROLL 

iai* PRINT "P/GRRUAR DIGITE (NEU 
LINE > “ 

1330 IF INKEY S = ” ’’ THEN GOTO 1330 

Figura 3 
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Digite RUN e aparecera na tela: 

NOME = 



Figura 4 

Digite um nome e NEW LINE: 



NOME = MICROHOBBY 
TELEF . = 



Figura 5' 

Digite um telefone e NEW LINE: 

NOME =M ICROHOBBY 
TELEF . =256 . 834.S 

NOME = 

"B" 

Figura 6 



e assim por diante. 



Agora que voce possui uma ficha ffsica em seu buffer, 
vamos grava-lo. Digite o programa 3, que possui o co- 
mando DSAVE. 



PROGRRMR 3 

2000 REM GRRURCRO FICHR FISICfl 

2005 CLS 

2006 PRINT "P/GRfltlflR flPERTE PECO 
RD DO GRRUfl-DOR E NEW LINE" 

2007 IF INKEY *="" THEN GOTO 2®07 
2010 LET Z=LEN B* 

2020 LET Z*=“B" 

2030 LET BC=USR DSflUE 
2040 SLOW 

2050 IF BC=® THEM PRINT RT 7,3;" 
OK" 

2060 IF BCOS5 THEN PRINT RT 7,3; 
"ERRO=" ; BC 

2070 PRINT "NOVA GRRURCRO (S/N) ? 

ft 

20S0 IF INKEY*="S" THEN GOTO 20® 

0 

2035 IF INKEY * = "N " THEN GOTO 300 
0 

2090 GOTO SOB® 

Figura 7 



Em Z esta definido o numero de bytes do buffer es- 
colhido e que sera gravado. Z$ seleciona o buffer que se- 
ra gravado (no nosso exemplo ZS = "B", porqueem B$ 
est§o armazenados os dados da ficha ffsica) 



BC a uma variavel qualquer, criada para utilizarmosa 
fungSo USR, onde ap6s a execugSo do comando 
DSAVE, sera armazenado o cddigo de reportagem. (Ver 
c6digo de reportagem, pagina 29.7 do manual do TK85). 



Certifique-se de que o MIC do TK esta conectado 
com o MIC do seu gravador, aperte o RECORD e digite 
NEW LINE. 0 comando DSAVE sera ativado e a primei- 
ra ficha ffsica estara sendo gravada. 



Se a subrotina DSAVE foi realizada corretamente 
(BC = 0), aparecera na tela um "OK". Caso contrario, o 
codigo de reportagem aparecera na tela (consulte o ma- 
nual do TK85, pagina 29.7). 

IMPORTANTE: Apos o tdrmino de cada comando de 
armazenamento, devemos retornar ao modo SLOW, por- 
que o computador entra no modo FAST com o ini'cio da 
subrotina, em linguagem de maquina. 

Agora que voce gravou em sua fita cassete, certifique- 
se que sua gravagao foi feita corretamente, digitando o 
programa 4. 



PROGRRMR 4 

3000 REM UER IF ICRCRO DR GRRURCRO 
3035 CLS 

3010 PRINT "P/UERIF ICflCftO REBOB I 
NE R FITR" 

302® PRINT "RPERTE D PLRY DO GRR 
URDOR" 

3030 PRINT "DIGITE NEW LINE" 

3040 IF INKEY*="" THEN GOTO 304® 
3050 LET BC=USR DUERIFY 
3060 SLOW 
3063 PRINT 

3065 IF BC =0 THEN PRINT "OK" 

3070 IF BC < > 0 THEN PRINT *'ERRO = " 
; BC 

308® PRINT "NOUR UER IF ICRCRO (Ss 
N) ?" 

3085 IF INKEY* =”S" THEN GOTO 30® 
0 

3088 IF INKEY *=”N" THEN GOTO MEN 
U 

3100 GOTO 3085 

Figura 8 



Conecte o EAR do TK85 com o EAR do seu grava- 
dor. Diminua um pouco o volume do gravador, aperte o 
PLAY e digite NEW LINE. 0 comando DVERIFY foi 
ativado, atuando como seestivesse lendo a fita, mas nao 
amnazena os dados na RAM, permitindo a voce, verifi- 
car se as informagoes foram gravadas corretamente sem 
destruir o conteudo da RAM. Ap6s a execug§o da subro- 
tina aparecera na tela, o cddigo de reportagem. Se apare- 
cer o cddigo de erro diminua, pouco a pouco, o volume 
do gravador atd surgir um "OK", significando que a gra- 
vagao foi boa e que a fita sera lida neste volume de som; 
caso contrario, sera informado o erro. 

Deseja outras fichas ffsicas em sua fita cassete? Ela 
pode conter inumeras fichas f fsicas, que devem ser 
gravadas uma apos a outra. Sua fita ficara assim: 




continue 



MICROHOBBY 27 



GAP 6 um espaqo entre suas fichas fi'sicas de aproxi- 
madamente cinco segundos ou mais, antes que a segunda 

ficha fi'sica seja lida. 

Vamos utilizar as informapoes armazenadas em sua fi- 
ta cassete, atrav^s de uma pesquisa. Digite o programa 5. 



PROGRfllifl 5 

+000 REM PESOUISR 
+005 CLS 

+010 PRINT RT 7,3; "UDCE DE5EJA • ' 
+020 PRINT RT 9,3; *'i. NOME " 
+030 PRINT RT 11,3; *2. TELEFONE 



RELRCRO D 
DOS COM D 



THEN SOTO 600 
00 



+0+0 PRINT RT 13,3; "3 
OS NOMES COMECR- 
ETERMINRDR LETRR" 

+050 IF INKEY* =" I" THEN GOTO 500 
0 

+060 IF INKEY* ="2 
0 

+070 IF INKEV*= ,, 3*’ THEN GOTO 

0 

+080 GOTO +050 

5000 REH PESOUISR DE NOME 

5005 CL 5 

5010 PRINT ''©URL O TELEFONE ?" 
5020 INPUT T* 

5030 PRINT T* 

5035 PRINT 

50+0 PRINT '' REBOB INE R FITR" 

5050 PRINT "RPERTE O PLRY DO GRR 
URDOR " 

5060 PRINT "DIGITE NEW LINE" 

5065 IF INKEY * = " " THEN GOTO 5865 
5070 LET Z=0 
5075 DIH B* <230.i 
5080 LET Z*="B" 

5090 LET BC=USR DLORD 
5095 IF BC- = 1 THEN GOTO 5555 
5100 IF BC<>0 THEN GOTO 5500 
5120 FOR 1=1 TO 230 STEP 23 
5130 IF B* <1 + 15 TO 1+22) =T* THEN 
GOTO 5600 
51+0 NEXT I 
5300 GOTO S070 
5500 SLOW 

5510 PRINT "ERRQ=" ; BC 
551-5 PRINT 

5520 PRINT "RPERTE STOP DO GRRUR 
DOR" 

5530 PRINT "RPERTE NEW LINE P/ N 
OUR PESOUISR" 

55+0 IF INKEY *="" THEN GOTO 55+0 
5550 GOTO +008 
5555 SLOW 
5656 PRINT 

5557 PRINT 

5558 PRINT 

5559 PRINT **NRO FOI RCHRDO ESTE 

TELEFONE NR FITR" 

5568 PRINT 

5562 PRINT "NOUR PESOUISR fS.-'N> ? 

■ a 

556+ IF INKEY*="S" THEN GOTO +00 

0 

5565 IF INKEY *="N" THEN GOTO HEN 
U 

5566 GOTO 556+ 

5600 SLOW 



5605 PRINT 
5610 PRINT 
DOR" 

5615 PRINT 
5620 PRINT 
5630 PRINT 
O 1+22) 
56+8 PRINT 
56+5 PRINT 
©UISR 7 " 

56+6 PRINT 



"RPERTE STOP DO GRRUR 

" NOME = '* ; S * V I TO 1+1+) 
"TELEFONE ="; 8* <1+15 T 

"UOCE DESEUfi NOUR PES 
'* <S/N) " 



5650 IF INKEY* ="S" THEN GOTO +00 
8 

5660 IF INKEY *=“N" THEN GOTO MEN 
U 

5670 GOTO 5650 

6000 REM PESOUISR DE TELEFONE 
6005 CLS 

6010 PRINT "QURL O NOME 7" 

6015 DIM N* < IS) 

6020 INPUT N* 

6030 PRINT N* 

6035 PRINT 

60+0 PRINT "RESOBINc R FITR" 

6050 PRINT "RPERTE O PLRY DO GRR 
URDOR" 

6060 PRINT 'DIGITE NEW LINE" 

6870 IF INKEY * = “ “ THEN GOTO 6070 
6080 LET Z=0 
6085 DIM B* <230) 

6090 LET Z*="B" 

6100 LET BC=USR DLORD 

6103 IF BC=I THEN GOTO 9500 

6110 IF BC-O0 THEN GOTO 5500 

6115 FOR 1=1 TO 230 STEP 23 

6120 IF B* < I TO 1 + 1+) =N* THEN GO 

TO 5600 

6130 NEXT I 

61+0 GOTO 6088 

6200 SLOU 

6210 PRINT 

6220 PRINT 

6230 PRINT 

62+0 PRINT "NRO FOI RCHRDO ESTE 
NOME NR FITR" 

6300 PRINT 

6310 PRINT "NOUR PESOUISR <S/N)7 

f • 

6312 IF INKEY *="S" THEN GOTO +O0 
0 

631+ IF INKEY * = "N" THEN GOTO MEN 
U 

6330 GOTO 6312 

7800 REM PESOUISR POR LETRR 
7005 LET N=1 
7807 DIM N* < 1008) 

7010 CLS 

7020 PRINT "NOMES COMECRDOS COM 
R LETRR : " ; 

7030 INPUT L* 

78+0 PRINT L* 

70+5 PRINT 

7050 PRINT “REBOBINE R FITR" 

7060 PRINT "RPERTE O PLRY DO GRR 
URDOR" 

7070 PRINT "DIGITE NEW LINE" 

7080 IF INKEY * = " " THEN GOTO 7080 
7090 LET Z=8 
7095 DIM B* <230) 

7108 LET Z*="B" 

711© LET BC=USR DLORD 

7115 IF BC = 1 THEN GOTO 8500 

7120 IF BC < > 0 THEN GOTO 5588 

7130 FOR 1=1 TO 230 STEP 23 

71+8 IF B * < I > =L * THEN GOSUB 8888 

7158 NEXT I 

7160 GOTO 7898 

7200 SLOW 

7210 PRINT "ERRO=";BC 
7220 PRINT 

7230 PRINT "RPERTE O STOP DO GRR 
URDOR" 

72+0 PRINT "DIGITE NEW LINE P.'NO 
UR PESOUISR" 

72+5 GOTO +008 

8800 LET N* <N TO N+22)=B*<I TO I 
+ 22 ) 

8100 LET N=N+23 
8200 RETURN 
8500 CLS 
3503 SLOW 

8505 IF N = 1 THEN GOTO 9608 
8609 FOR U=1 TO N +22 STEP 23 
3510 PRINT N* <U TO U+22) 

8520 NEXT U 
8620 GOTO 56+0 
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9600 PRINT 

9602 PRINT 

9603 PRINT 

9605 PRINT "NflO FOI ENCONTRRDO N 
ENHUM NOME COHECftDO COM ESTft l_E 
TRR" 

9610 GOTO 564-5 

Figura 10 



A vartevel Z foi criada e zerada. Nela serS armazenado 
o numero de bytes lidos, que serao armazenados no 
buffer, apos a execugao do comando DLOAD.ZS indica 
o buffer em que serao armazenadas as informagoes lidas 
na fita. 

Ao ativarmos o comando DLOAD, o computador co- 
loca no buffer a primeira ficha fi'sica e por cinco segun- 
dos podemos manusear os dados antes que a outra ficha 
entre no buffer. 

0 programa 5 possui tres tipos de pesquisa: 

1 . Procura o nome cujo telefone voce forneceu em T$. 

2. Procura o telefone de um determinado nome, indica- 
do em N$. 

3. Lista os nomes comegados com uma determinada le- 
tra, indicada em L$. 

Mas voce pode criar outros tipos de pesquisa. Procure 
entender como o comando DLOAD funciona e como 6 
feito a pesquisa; depois, deixe livre sua imaginagao! 

Cada ficha I6gica cont^m 23 bytes, sendo os 15 pri- 
meiros bytes, reservados para o nome e os outros 8 
bytes, para o telefone. 

Assim, se voce deseja saber o telefone de "X", o com- 
putador separa as fichas Idgicas (23 em 23 bytes) e com- 
para os 1 5 primeiros bytes com o nome que esta em N$ . 
Se forem iguais, aparece na tela o nome e o respectivo 
telefone; caso contr^rio, analisa a prdxima ficha Idgica. 
Se este nome n§o for encontrado nesta ficha ffsica, ini- 
cia a leitura da prdxima ficha ffsica e o mesmo processo 
se repete. 

Caso chegue ao fim do arquivo de dados sem achar o 
nome, aparecerS na tela, o seguinte: 



NRO FOI RCHRDO ESTE NOME NR F1TR 

Figura 1 1 

0 mesmo processo 6 feito para a pesquisa do nome 
cujo telefone voce informou em T$. A unica diferenga 6 
que sao comparados os oito ultimos bytes de cada ficha 
I6gica, com o telefone em T$. 

Na pesquisa de nomes comegados com uma letra (L$) 
6 comparado o primeiro byte de cada ficha Idgica com 
L$. Se forem iguais, esta ficha Idgica 6 armazenada em 
um outro buffer N$; caso contr^rio, analisa a prdxima 
ficha Idgica. 

Quando o c6digo de reportagem em BC acusar "fim 
de arquivo", as informagoes que estao no buffer N$ sao 
imprimidos na tela. 

Para completar o seu programa, digite o programa seis 
que 6 o MENU. 



PROGRRMR 6 

5.0 REM MENU 

IS LET MENU = 3.3 

13 CI_S 

15 PRINT RT 6.5; "M E n U" 

26 PRINT RT B . 5 ; "UOCE DE5EUH - " 
30 PRINT RT 10.5; "I. CRZRR TIC 

HR FIS ICR" 

40 PRINT RT 12.5; “2> GRRURR FT 

CHR FIS ICR" 

50 PRINT RT 14,5; "3. UERIFICflR 

fjoni topon " 

68 PRINT RT 3.6 . 5 "4 . PESSUISfW 

FICHR LOGICfl" 



70 

Ok 


IF 


INKEY$s“l“ 


THEN 


GOTO 


las 


KJ 

80 

0 


IF 


INKEY$s“2‘ % 


THEN 


GOTO 


200 


90 


IF 


INKEY$=“3 %% 


THEN 


GOTO 




0 










188 

0 

110 


IF 


INKEY*="*- 


THEN 


GOTO 


AM 


GOTO 70 









Figura 12 



Agora que voce sabe como os comandos de armazena- 
mento e recuperagao de dados funcionam, crie outras fi- 
chas Idgicas e outros programas-pesquisa. 

O 



-DISPONiVEL PARA O SEU- 
TK, ZX81, CP-200 E NE. 
SOFTWARE E HARDWARE 
EXCLUSIVOS NO BRASIL 



SOFTWARE 



• SCREEN • 27 rotlnas para aererv 
ciar a tela, com fungOes e efeitos 
sensacionais. CrS 14.900,00. 

• DOUBLE • Dobra a velocidade do 
SLOW, sem "Plscar a tela" 

CrS 5.500,00. 

• MUSIC • Utilize a saida MIC do 
jr seu micro, para a saida de som. 

Necessita ampliflcador extemo. 
CrS 4.950.00. 

• QUICK • Carrega, salva e verifies 
programas em fita, com o dobro 

y da velocidade normal. 

CrS 14.500,00. 

• COMPILADOR BASIC • Roda 
seus programas em BASIC, 60 
vezes mals rApldo. 

CrS 26.100,00. 

• EDfTORy DISASSEMBLER • A llrv 
j guagem de mAquina sob seu co- 
~ mando. Cr$ 24.500,00. 



HARDWARE 



• K-7 CONTROLLER • Controla o 
motor do gravador automat Ica- 
mente. Cr$ 16.500,00. 

• RESET • Chave "reset". 

CrS 4.950,00. 

• INVERT • InversAo (com chave) 
da Imagem. CrS 5200,00. 

• INTER200 • Permite que o CP-200 
utilize a TK PRINTER ou outros 
perifAricos. CrS 16.800,00. 

• JOY-FACE • ConexAo para JOY- 
STICK. CrS 14.300,00. 

• EXTENSOR • Afasta a expansAo 
de membria, evitando os desliga- 
mentos constantes. 

CrS 24.750,00. 

• MONITOR • ConexAo dlreta do 
seu micro a qualquer monitor de 
video. CrS 24.900 Jo. 




ELDORADO COMPUTADORES E 
SISTEMAS LTDA. 

Rua Vlsconde de Plraji, 361 L)a. 213/214 
22410 • IPANEMA • RJ • Tel.: (021) 227 0791 



O SOFTWARE NOS REMETEMOS PARA TODO O BRASIL. 
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A AMPULHETA ELETRONICA 

Com este programa abrimos a segao RELOGIOS, on- 
de pretendemos apresentar alguns programas para mar- 
car 0 tempo no seu Apple; nada melhor do que comegar 
com urn relbgio bem primitivo: a ampulheta (programas 
simulando relbgios mais antigos, como o relbgio de sol, 
serao bem aceitos pela nossa redagSo). Com a colabora- 
g§o dos leitores iremos evoluindo atb os modernos relb- 
gios digital-analbgicos. 

Se voce nunca viu uma ampulheta, nem mesmo na 
abertura do "Tunel do Tempo", eis como ela se parece: 




0 tempo que a areia leva para passar da parte de cima 
para a parte de baixo, completa urn ciclo. 

As primeiras ampulhetas, surgiram no sbculo I depois 
de Cristo, contemporaneamente els clepsidras, ou relb- 
gios de bgua. Chegou-se a desenvolver ampulhetas bas- 
tante grandes, com ciclos de atb uma hora. Nos sbculos 
XVI e XVII eram comuns ampulhetas de 15e 30 minu- 
tos nas igrejas, usadas para marcar 0 tempo dos sermbes. 
Para melhor medir 0 tempo foram feitas ampulhetas 
com as metades superiores e inferior cili'ndricas, de tal 
modo que a altura da areia fosse proporcional ao tempo 
passado, e portanto pudesse haver marcas de minuto em 
minuto, atb um mbximo de vinte minutos. Muitas am- 
pulhetas tinham um eixo no centro, para que ao fim de 
um ciclo, se pudesse rodb-las e comegar de novo. 

0 Programa 

Linhas 1180-1230 - Essa parte do programa POKEeia 
uma subrotina em linguagem de mbquina, para simular 
o som da areia caindo. 

Linhas 250-270 - "Perguntam" quanto tempo o pro- 
grama deve cronometrar e o local de origem da areia. 
Perceba que para cada tipo de areia hb um valor de D e 
X, que serSo usados na rotina de som, para produzir 



Domus. 

sons diferentes para cada tipo de areia. Sinta-se b vonta- 
de para mudar os locais de origem das areias, mudando 
tambbm, conforme necessbrio, as linhas 280-310. 

Linhas 330-980 — Formam o loop FOR-NEXT que 
determina o tempo a ser cronometrado. 

Linhas 390-470 — Controem a ampulheta em si. 

Linhas 490-620 - Enchem a metade superior com 
areia de cor aleatbria. 

Linhas 630-740 — Formam a rotina que tira um grao 
de areia da metade de cima e coloca na metade de baixo. 
Como? Simplesmente pintando o ponto da parte de ci- 
ma de preto e o ponto da parte de baixo da cor anterior. 
As posigoes dos pontos s§o lidas atravbs das linhas 670 
e 710. 

Linhas 750-770 — Const ituem um loop para passar o 
tempo, de tal forma que cada grao caia em intervalos de 
1 segundo. Para um ajuste fino do tempo, talvez seja 
preciso mudar o valor final deste loop (um valor maior 
tornarb a execugao mais lenta, enquanto um valor 
menor a tornarb mais rbpida). 0 valor 220 funciona bem 
no nosso computador. 

Linhas 780-880 — Dao a ilusao da areia caindo, 
PLOTando e apagando pontos consecutivos suficiente- 
mente rbpido para que eles paregam estar se movendo. 
Use esta tbcnica em seus programas. A I inha 870 chama 
a subrotina em linguagem de mbquina para fazer o som. 
Para cada tipo de areia hb um som especi'fico. Se voce 
quiser, remova o REM dessa linha para que ela fique: 

870 POKE 768,F + NS: POKE 769,S: CALL 
770:NS = NS + 1 

e entSo para cada gr§o que cair, havers um novo som. 

Linhas 890-940 — Toca o sininho tantas vezes quanto 
os minutos que jb passaram. 

Linhas 1000-1160 — Formam a areia, isto b, as coor- 
denadas dos pontos que devem ser apagados e pintados 
pela rotina das linhas 630-740. 

TWO-LINERS 

Ainda estamos esperando suas colaboragoes para apre- 
ciagSo de nossa redagao e posterior publicaglio. 

Portanto, maos £ obra e enviem seus programas pa- 
ra: MICROHOBBY 

Segao Por Dentro do Apple 
Caixa Postal 60081 
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f REN m ANPULHETA til 

91983 POR OENTRO DO APPLE 

108 TEIT : HONE : CLEAR 
240 60SUB 1180 

250 INPUT ‘OUANTOS NINUTOS DEVO 
CR0N0HETRA8 ? ';NI 
260 HONE : VTAB 7 
270 PRINT *QUE TIPO DE ARE1A DEV 
0 USAR ?': PRINT : PRINT a DE 
SERTO DO (H)QHAVE': PRINT 'D 
ESERTO DE (A)TACANA': PRINT 
■DESERTO DE 16)081': PRINT ' 
DESERTO DO (S)AARA’: PRINT : 
PRINT 'SUA ESCOLHA ? 6ET 
At: PRINT At 

280 IF At * 'N' THEN D * 25: X = 

10 

290 IF At * 'A* THEN D * 50: X = 

10 

300 IF At * '6' THEN D * 50:1 * 

5 

310 IF At * 'S' THEN D « 100: X * 

5 

320 HONE 

330 FOR TP * l TO HI 
340 6R 
350 R * 37 

360 l * INT (14 I RND (1)1 ♦ I 
370 COLOR* 15 

390 REN CONSTRUIR ANPULHETA 
410 HLIN 13,27 AT 0: HLIN 13,27 AT 
39 

420 VLIN 1,7 AT 13: VLIN 32,39 AT 
13 

430 VLIN 1,7 AT 27: VLIN 32,39 AT 
27 

440 S * 14: J * 21 
450 FOR A * 1 TO 12 STEP 2: PLOT 
S,A ♦ 7: PLOT S,A ♦ 8: PLOT 
J,A ♦ 19: PLOT J,A ♦ 20:S * 

S ♦ 1:J * J ♦ I: NEXT A 
460 S = 14: J * 21 

470 FOR A * 12 TO 1 STEP - 2: PLOT 
S,A ♦ 18: PLOT S,A ♦ 19: PLOT 
J, A ♦ 6: PLOT J,A ♦ 7:S * S ♦ 
1:J ■ i * 1: NEXT A 
460 REN 

490 REN ENCHER A NETADE DE CINA 

500 REN 

510 COLOR* l 

520 A * 17:C * 19:B * 21 

530 FOR K * 1 TO 2 

540 FOR J * C TO 8 

550 PLOT J,A 

560 NEXT J 

570 A * A - 1 

580 NEXT X 



590 C * C - !:B * 8 + 1 
600 IF A < 6 THEN 620 
610 SOTO 530 
620 HLIN 14,26 AT 38 
630 REN 

640 REN COHECA A HARCAR 0 TENPO 

650 REN 

660 COLOR* 0 

670 READ X, Y 

680 IF X * 0 THEN 900 

690 PLOT X,Y 

700 COLOR* Z 

710 READ X,Y 

720 PLOT X,Y 

730 IF X * 20 THEN R * R - 1 
740 REN 

750 REN AJUSTA 0 REL06I0 
760 REN 

770 FOR X * 1 TO 220: NEXT X 
780 REN 

790 REN CAIR DA ARE I A 
800 REN 

610 FOR F * 19 TO R 
820 COLOR* l 
830 PLOT 20, F 
840 COLOR* 0 
850 PLOT 20, F - 1 
860 NEXT F 

870 POXE 768, D ♦ NS: POXE 769, X: 
CALL 770: REN OPCAO...NS*NS 
+1 

880 60T0 660 
890 REN 

900 REN TENPO DUE JA PASSOU 
910 REN 

920 FOR S * 1 TO TP 
930 PRINT CHRt (7) 

940 NEXT S 

950 IF S * 2 THEN HONE : HTAB 1 
8: PRINT '1 NINUTO': 60T0 97 

0 

960 HONE : HTAB 17: PRINT TP' HI 
NUTOS' 

970 RESTORE :NS * 0 
980 NEXT TP 
990 END 
1000 REN 

1010 REN DADOS DA ARE I A 
1020 REN 

1030 DATA 20,6,20,37,19,6,19,37 
,21,6,21,37,20,7,20,36,19,7, 

19.36.21.7.21.36 

1040 DATA 20,8,20,35,18,6,18,37, 

22,6,22,37,20,9,20,34,19,8,1 

9.35.21.8.21.35.21.9.22.36 
1050 DATA 22,7,22,35,22,8,23,37, 

23,6,21,34,21,10,20,33,20,10 

,19,34,19,9,18,36,22,9,16,35 



1060 DATA 20,11,17,37,18,7,17,3 

6.17.6.16.37.23.7.20.32.21.1 
1,21,33,22,10,23,36,16,6,24, 

37 

1070 DATA 16,6,18,34,20,12,17,35 
,18,8,17,34,17,7,19,33,17,8, 

18.33.24.6.15.37.19.10.16.36 

1080 DATA 16,7,23,35,18,9,19,32, 

23.8.16.35.24.7.24.36.25.6.2 
2,34,21,12,25,37,23,9,22,33 

1090 DATA 19,11,20,31,23,10,23,3 
4,24,8,26,37,22,11,26,36,18, 

10.21.32.22.12.25.36 

1100 DATA 20,13,24,35,21,13,16,3 
4,15,7,15,36,15,6,18,32,15,8 
,15,35,14,6,14,37,24,10,17,3 
3 

1110 DATA 14,7,25,35,16,8,24,34 
,17,9,18,31,24,9,19,31,19,12 
,20,30,20,14,26,35,25,7,22,3 
2 

1120 DATA 25,8,14,36,26,6,21,31, 
26,7,25,34,19,13,19,30,20,15 
,17,32,21,14,21,30,18,11,23, 

33 

1130 DATA 17,10,16,33,16,9,15,34 
,25,9,14,35,15,9,24,33,22,13 
,22,31,16,10,20,29,17,11,23, 

32 

1140 DATA 18,12,26,34,23,11,17,3 
1,24,11,16,32,21,15,21,29,19 
,14,14,34,23,12,20,28 
1150 DATA 23,13,15,33,16,11,23, 

31.22.14.18.30.18.13.25.33.1 
7,13,22,30,22,15,24,32,17,12 
,19,29 

1160 DATA 18,14,18,29,20,16,21,2 
8,19,15,19,28,21,16,22,29,18 
,15,17,30,20,17,24,31,19,16, 

16.31.21.17.23.30.19.17.20.2 
7,0,0 

1180 REN SON DA ARE I A 
1200 POXE 770,173: POXE 771,48: POXE 
772,192: POXE 773,136: POXE 
774,208: POXE 775,5: POXE 77 
6,206: POXE 777,1 

1210 POXE 778,3: POXE 779,240: POXE 
780,9: POXE 781,202: POXE 78 
2,208: POXE 783,245: POXE 78 
4,174: POXE 785,0: POXE 786, 

3 

1220 POXE 787,76: POXE 788,2: POXE 
789,3: POXE 790,96 
1230 RETURN 

O 

Daniel R. Falconer e Jos£ Eduardo Moreira 
Professores assistentes do 
Departamento de Computacao 
da Escola Pueri Domus. 



MICROHOBBY 31 



I 



I A FITA DO MES: 



w 



O PULO DO SAPO 



Nos numeros anteriores j3 analisamos um jogo inteli- 
gente (TK Xadrez de MICROSOFT); um jogo s6rio (Si- 
mulador de Voo — fita brinde de MICROHOBBY); um 
programa-ferramenta (fungoes I da MICRON) e um apli- 
cativo administrativo (SICOM da MICROSOFT). Este 
mes vamos analisar um jogo de agao: 0 PULO DO SAPO 
da MULTISOFT. 



PULO 00 




MULTI50FT 

COPYRIGHT CC) -1983 
MULTISOFT INF. LTPfl . 

A fita nos foi enviada numa embalagem bem cuidada, 
contendo instrugoes de carga e um certificado de garan- 
tia. J3 aqui, nos defrontamos com a primeira novidade; 
a fita estci garantida por 60 dias "contra defeitos de fa- 
bricagao" e por UM ANO, contra "uso indevido ou mau 
funcionamento do equipamento reprodutor mediante 
pagamento de uma taxa de substituigao". 

Se realmente isto funcionar, representa uma louv^vel 
iniciativa que esperamos seja logo imitada por todos os 
fabricates brasileiros de SOFTWARE. 

Afinal das contas o tao massacrado consumidor pre- 
cisa comegar a levar um pouco de vantagem. 

A qualidade de gravagao foi testada aqui, na redagao, 
em gravadores de v£rias marcas e modelos e justificou 
a ousadia de garantia. A gravagao (bem uniforme e em 
bom nfvel) s6 d3 problemas em gravadores com o 
azimuth da cabega desregulado. Este 6 um problema que 
ainda esta 3 espera de uma solugao. 

0 PULO DO SAPO 6 um jogo tipo "vfdeo-game" que 
pode ser jogado com Joystick. Obviamente n§o resiste a 
uma comparagao direta com cartuchos de vfdeo-game 
por tres motivos b^sicos: 

1 ) No cartucho, o tempo de carga 6 irrelevante (o cartu- 
cho 6 uma ROM.). Na fita em questao, o tempo de car- 
ga 6 de 6 minutos. 

2) A tela do TK 6 de baixa resolugao (pixel muito gran- 
de) para poder permitir figuras "realistas". 

3) 0 TK s6 produz imagens preto e branco. 

Mas, levando-se em conta que o TK 6 um computador 
(de verdadel) e que esses jogos representam nele, uma 



utilidade marginal, talvez as objegoes anteriores possam 
ser relevadas. 

Nossa opiniao comega a se tornar um pouco mais fa- 
vor^vel quando comegamos a jogar: a apresentagao est3 
em nfvel profissional e as instrugoes sao bem nftidas (em 
que pese a ausencia de acentosl). 

0 conteudo do jogo 6 um pouco pobre; um sapo que 
tenta chegar em casa atravessando uma estrada movi- 
mentada e pulando por cima de troncos, tartarugas e ja- 
car^s para atravessar um rio. 

Um toque pat^tico 6 dado pelo esporSdico apareci- 
mento de um filhote (ou ser3 um girino?) que o sapo 
precisa salvar. Quando o sapo pega o filhote no colo, o 
sfmbolo (nao d3 para se falar em figuras) pisca com um 
rftmo tao bem acertado que chega a evocar algo esper- 
neandol 0 efeito 6 gozadfssimo, mostrando que a cria- 
tividade e a imaginagao podem muito bem suprir a falta 
de recursos. 

A contagem de pontos e de tempo 6 impec^vel e o sa- 
po dispoe, inclusive, de uma galeria de recordes, bem es- 
timulante para o espfrito competitive. 

Quando um jogador escreve seu nome, se o joystick 
estiver conectado, algumas letras nao sao aceitas. Este 
problema ocorre com alguns modelos antigos do 
TK82-Ce6de m^quina.mas nao de fita (aliSs j3 comen- 
tamos, na revista, como o usu^rio deve proceder para eli- 
minar este inconveniente). 

Em resumo, trata-se de uma fita produzida e fabrica- 
da em nfvel profissional, contendo um jogo razoavel- 
mente interessante, com pouco conteudo instrutivo mas 
suficientemente divertido para um dia de chuva ou uma 
reuniao de amigos. 




(N.R.: Todos os fabricates de SOFTWARE podem nos 
enviar um exemplar de suas fitas, pois teremos o m3xi- 
mo prazer em analis^-las e comen t4-las para prestar mais 
um servigo a nossos leitores). q 
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NOVIDADES 



SiiiiiO TK 2000iiiiiB: 



As principals caracteri'sticas deste lanpamento da 

Microdigital sao: 

O 64K de memdria RAM 

O 16K de memoria ROM com linguagem BASIC 
(compati'vel com Apple Soft), Mini-Assembler e Mo- 
nitor/Disassembler. 

O Operacao em modo texto ou grbfico de baixa e alta 
resolupao (280x192), em cores, sistema PAL M. 

O Canal de som pela TV. 

O Teclado profissional tipo maquina de escrever. 



Podem ser conectados ao TK2000 atb dois gravadores 
cassete com controle por software, em formato Apple- 
Soft ou prbprio, e tambbm pode ser conectado inter- 
face para disk-drive de 5 1 /4 polegadas. 

Para display de video pode ser utilizado numa TV co- 
mum, em cores ou preto e branco, ou monitor de video. 

A ligapao de impressora, tipo Centronics, pode ser 
feita diretamente, sem a necessidade de dispositivos de 
interface adicionais. 



Esta previsto o lanpamento de outros acessbrios tais 
como joystick, interface RS232, etc. 

Uma grande quantidade de programas aplicativos co- 
merciais e profissionais, bem como jogos animados em 
cores e alta resolupao sera lanpada. 

Na area de aplicativos comerciais destacam-se: 

1 ) programa de caiculo de planilhas (tipo Visicalc), 

2) sistema de controle de estoques, 

3) editor de textos para a lingua portuguesa. 



NOVO LIVRO PARA INICIAQAO AO 
MICROCOMPUTADOR 



graficos, etc.) atb jogos divertidos. 



Esta sendo lanpado no Rio de Janeiro, um novo livro 
que visa difundir a linguagem basica para microcompu- 
tadores, em todo territorio nacional e nos paises de lin- 
gua portuguesa. 

0 livro, que serve para adultos e crianpas a fruto de 
um mbtodo e a experiencia de um curso para iniciantes, 
desenvolvido pela MICRO-KIT, tern como autores 
Carlos Alberto Abreu, que possui mestrado em Engenha- 
ria de Sistemas pela COPPE e de Denise Reis, que tam- 
bam possui mestrado em Educapao do IESAE, da Fun- 
dapSo Getiilio Vargas. 

Tendo como base a programapao voltada para os mi- 
crocomputadores da linha Sinclair: TK82, 83, 85, 
CP200, TIMEX 1000, ZX81, entre outros; esse livro po- 
de tambam ser utilizado pelos operadores da linha TRS 
ou APPLE, com ligeiras modificapoes. 

Sendo editado no Rio de Janeiro, o livro sera distri- 
buido diretamente pela Micro-Kit em sua primeira 
edipao. 

PROGRAMAS PARA COMPATlVEIS COM TRS 80 

Foi lanpado livro de programas para CP300, CP 500, 
D8000, D8001 , D8002, DGT100, NAJA, JR.SYSDATA 
de autoria de Jeff Andrew editado pela EB Informatica 
(CP. 30234, CEP 1051, SP). 

Os programas varrem toda gama de interesse, indo 
desde aplicativos sbrios (conta bancaria, demonstratives 



A INFORMATICA CHEGA AS ESCOLAS 
DE 19 E 29 GRAUS 

Crianpas e adolescentes de varias escolas particulars 
do 1 9 e 29 graus, ja estao aprendendo a operar em mi- 
crocomputadores pessoais, sendo esse o primeiro passo 
para que, no futuro, eles possam desenvolver-se no pro- 
missor campo da informatica. 

O curso, que esta sendo ministrado pela CENADIN — 
Centro Nacional do Desenvolvimento da Informatica, 
sob a direpao do engenheiro Ramiro Yabumoto e Ale- 
xandre L. Werfel, seguem as seguintes fases: Iniciapao ao 
Microcomputador — Programapao Basic e Introdupcio ao 
Processamento de Dados. 

Com um corpo de varios professores especializados, 
esta empresa ministra esse curso no prbprio colbgio, 
onde, em razao do prbprio interesse dos pais dos alunos, 
Ihes foi cedido um espapo para essa especial izapao fu- 
tura. 

Colbgios de boa categoria, como o Rio Branco, Renas- 
cenpa, Benjamin Constant, Maria Imaculada entre 
outros, ja cederam espapos para que a Cenadin possa ini- 
ciar seus alunos no campo da informatica. 

A iniciativa pioneira desta empresa, acha-se em franca 
expansao e apesar da resistencia de algumas escolas, o 
engenheiro Alexandre acredita que outros colbgios de 
Sao Paulo irao aderir, uma vez que, o prbprio avanpo da 
informatica ira determiner esse procedimento. 
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CURSO DE ASSEMBLY 
aula 4 
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Flsvio Rossini 



Observapao Inicial: Para esclarecimento dos leitores, sa- 
lientamos que este curso d um resumo do livro "Introdu- 
q§o a Linguagem de Maquinas" para o TK " — AS- 
SEMBLY Z80", Volume I de Flavio Rossini (Editora 
Moderna e Micromega). Para os que desejarem se apro- 
fundar no ASSEMBLY Z80, sugerimosa leitura do livro 
citadoesua continuapao (Volume II). 

PRINCIPAL REGISTROS INTERNOS DE 8 BITS 

Iniciaremos esta aula explorando o conceito de RE- 
GISTRO; esta palavra foi utilizada quando falamosso- 
bre a memdria. Um registro 6 um circuito eletronico ca- 
paz de memorizar bits (oito no nosso caso), podendo re- 
presentar e armazenar numeros de 0 a 255 ('00' a 'FF' 
em hexadecimal). 

0 microprocessador do TK possui v^rios registros in- 
ternos que sao muito utilizados nos programas em lin- 
guagem de m^quina, dos quais sete serao estudados nes- 
sa aula; estes registros "nao” fazem parte da memdria e 
sao chamados respect iva men te de A, B, C, D, E, H e L. 
Alguns deles tern a propriedade de "juntarem-se" quan- 
do necessdrio, formando um unico registro de 16 bits; 



MICRO RH 

INFORMATICA LTDA. 



- Cursos regulares de Linguagem BASIC ou com 
horSrio a combinar, para executivos e para 
qualquer microcomputador. 

- Curso sobre GRAFICOS em Basic, para JR, 

DISMAC. .D MAYVI 

- Venda de micros pelo correio: JR, MAXXi. 

- Transformamos televisao para monitor. 

- Consultoria em SOFTWARE para 

microcomputadores. , . 

- Especializada em programas para Hewlett Packard 

8 5 

- Proqramas prontos para HP 85 e 87: 

• Mala direta e agenda de clientes • Movimentapao 
banc£ria com cddigo de despesas • Datilografia 
automatica de circulares com busca de enderepos na 
fita • Topografia • Contabilidade de autbnomo: livro 
caixa • Jogos diversos • Folha de pagamento 

• Controle de estoques • Controle para Postos de 
qasolina • Controle de processos para Marcas e 
Patentes • Controle de alugu6is • Contas a pagar 

• Contas a receber 



II 
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assim podemos formar os pares de registros BC, DE e 
FI L (so estes pares sao possi'veis). 

Por exemplo, se o registro B contem o numero 'A0' 
(160 em decimal) e o registro C contem 'B2' (178 em 
decimal)- o par BC contem o numero 'A0B2' (256 x 
x 160 + 178= 41138 em decimal). 

FP I 1 



A 



B 


C 


0 


E 


H 


L 



(Como pod«m wr tmagmadoi oi pnnctpwi mp u troi mttmo* do 
mt c roproc— dot ) 

Como vimos anteriormente, as instrupoes em lingua- 
gem de m^quina sao dadas por um ou mais grupos de 
cddigos em hexadecimal de dois di'gitos cada. Istod fei- 
to para evitar a confusao que poderia ser criada usando 
apenas os numeros 0 e 1. Mesmo assim, temos agora 
apenas 16 si'mbolos dispom'veis (0, 1, 2, 3, 4, 5, 6, 7, 8, 
9, A, B, C, D, E, F) e para programas razoavelmente 
grandes mesmo isto pode trazer confusao! Dessa forma, 
para facilitar a compreensao do ponto de vista humano, 
costuma-se associar a cada instrupao, grupos de letras em 
forma MNEMONICA para auxiliar a programapao, que 
sao chamados ''cddigos de operapao", pois terao como 
objeto associar uma ORDEM a cada grupo de letras! Por 
exemplo, se o codigo 10100111 significar “some", seu 
correspondente em hexadecimal seria 'A7' e seu mnemo- 
nico poderia ser ADD. Assim, dependendo da instrupao 
em linguagem de mdquina, cada mnemonico poderd 
significar 1 ou mais grupos de 2 digitos hexadecimais. 
Dessa maneira, para programar em linguagem de mdqui- 
na, deveremos aprender os mnemonicos correspondentes 
a cada instrupao do microprocessador e fazer o progra- 
ma utilizando os mesmos; no final com o auxflio de uma 
tabela, substituiremos os mnemonicos por seus cddigos 
hexadecimais e utilizaremos o FIEXAMEM para colocar 
o prpgrama em bits no computador. 

No TK os programas em linguagem de maquina sao 
tratados como SUBROTINAS de um programa em 
BASIC, as quais sao chamadas pela funpao USR (em 
BASIC, abreviapao de USER) cujo argumento e o ende- 
repo inicial da subrotina (por exemplo 30000 se o pro- 
grama de linguagem de maquina estiver a partir do ende- 
repo que colocamos em RAMTOP em aulas anteriores); 
portanto, estas subrotinas devem ter como instrupao fi- 
nal um comando para voltar ao BASIC, similar ao 
RETURN, cujo cddigo hexadecimal e mnemonico sao 
respect iva men te: 



'C9' (codigo) RET (mnemonico abreviapao 
de RETURN) 
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Vamos entender como funciona a instrugao USR; su- 
ponhamos que tivdssemos o seguinte "programa" em 
BASIC: 

10 PRINT USR 30000 (USR estd na tecla L do TK) 

Ao encontrar USR 30000, o computador "carrega" o 
par de registros BC (mencionados anteriormente) com 
este numero, ou seja, como 30000 = '7530', teremos 
B = 75' e C = '30'. A seguir o microprocessador exe- 
cuta o programa em linguagem de mdquina que comega 
na memdria 30000 (= '7530'); portanto 6 conveniente 
que tenha sido previamente colocado um programa a 
partir da memdria 30000. 0 programa d entao executa- 
do atd encontrar a instrugao RET (codigo 'C9') quando 
o controle volta ao programa BASIC, fornecendo como 
sai'da o conteudo do par BC, que, se ndo for alterado du- 
rante o programa em linguagem de mdquina, continuard 
sendo '7530' (30000). Portanto, para obter a sai'da da 
subrotina (ou seja, os resultados que devem estar no par 
BC) basta ordenar um PRINT da fungao USR! 

Vamos entSo colocar o seguinte programa em lingua- 
gem de mdquina na memdria 30000: (que jd deve estar 
reservada!) 

RET (apenas isto!) 

Como se trata apenas de uma instrugao, n§o precisa- 
mos utilizar o programa HEXAMEM; iremos faze-lo di- 
retamente com POKE. 0 codigo hexadecimal do RET d 
'C9' que equivale a 201 (em decimal), portanto: 

POKE 30000,201 (NEW LINE) 

A seguir digite: 

PRINT USR 30000 (NEW LINE) 

0 que deverd aparecer na tela? Ora, a fungao USR 
carregard o par BC com 30000 ('7530'), ordenando a se- 
guir, que o microprocessador execute o programa em 
linguagem de mdquina que estd a partir da memdria 
30000, encontrando "de cara" o RET. Dessa forma, o 
controle voltard ao programa em BASIC, sem ter altera- 
do os registros BC e fornecerd como sai'da, o prdprio 
30000; portanto, na tela de TV deverd aparecer o nume- 
ro 30000. 

Poderia surgir agora a seguinte pergunta: mas nao 
existe uma instrugao equivalente ao STOP? De fato, hd 
em linguagem de mdquina, uma instrugao similar ao 
STOP em BASIC cujo cddigo de operagao d HALT (cd- 
digo hexadecimal '76'). NUNCA useesta instrugao pois, 
neste computador, ela paralisa o sistema e este nao acei- 
ta mais nenhuma tecla nem mesmo o BREAK! Portan- 
to, use sempre RET para terminar seus programas em 
linguagem de mdquina. 

A INSTRUQAO LD 

A instrugao LD permite colocar numeros dentro dos 
registros internos do microprocessador (obviamente es- 
tes numeros poderao ser de '00' a 'FF' no mdximo para 
cada registro), copiar os dados de um registro em outro 
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ou para algum enderego da memdria e vice-versa; assim, 
existirao vdrias instrugoes LD, cada uma com seu prd- 
prio cddigo hexadecimal. (LD d abreviatura de LOAD = 
= carregue). 

Vamos analisar inicialmente, como colocar numeros 
diretamente nos vdrios registros; a instrugao, de modo 
gendrico, corresponde a: 

LD registro.dado 

Por exemplo: 

LD E, '2A' (que equivale a dizer LD E,42) 

Colocard o numero '2A' (42) no registro E. Esta ins- 
trugao corresponde a 2 (dois) bytes em cddigo hexade- 
cimal, um para o cddigo de operagao (no caso "car- 
regue" 0 registro E: LD E,| e o outro para o dado 
numero que serd colocado. Assim, para os vdrios regis- 
tros, teremos os seguintes cddigos de operagao e cddigos 
hexadecimais: 



INSTRUQAO 


CODIGO 


LD A, dado 
LO B.dado 
LDC. dado 
LD D, dado 
LD E. dado 
LD H, dado 
LD L. dado 


'3E' ♦ 1 byta para o dado 

*•6' + 1 byta para o dado 

'•E' ♦ 1 byta para o dado 

*16' 1 byta para o dado 

'IE' ♦ 1 byta para o dado 

'26' ♦ 1 byta para o dado 

'2E' + 1 byta para o dado 



(• mttrupao LD ragiitro.dado (8 bits).) 



continua 
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Vamos entao fazer um programa, que "carrega" o re- 
gistro B com '00' e o registro C com '2A': 



MEM. 36666 


LO 0,'66' 


'6666' 


.'06' - 0 


MEM.36662 


LD C/2A* 


'6E2A' 


;'2A* - 42 


MEM 36664 


RET 


W 





Devemos entao coloc^-lo, por exemplo, a partir da 
memdria 30000 (lembre-se de reserv^-la), usando 5 vezes 
POKE como fizemos anteriormente para a instrupao 
RET (transformando adequadamente os cddigos hexade- 
cimals para decimals) ou entao usando o programa 
HEXAMEM para introduzir as 3 instrupoes. Se voce uti- 
lizar o HEXAMEM, lembre-se de RESERVAR o fim da 
memdria antes de coloc^-lo no computador; a seguir, 
execute-o colocando 30000 para o enderepo inicial e fa- 
pa: (N.L. = NEW LINE) 



6600 


(N.L.) 


0E2A 


(N.L.) 


C9 


(N.L.) 


P 


INI.) 



Note que o programa ocupa 5 posipoes de memdria, 
respectivamente de 30000 a 30004. 





60006116 


66' 


36061 


66606666 


•66' 


36662 


66661110 


'0E' 


36663 


66101010 


'2A' 


36064 

36665 


1 1601601 


C9‘ 



LD 8. M’ 

LD C. -2A- 
BET 



Uuualizacao do program* na mamdria do computador) 
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A seguir ditite: 

PRINT USR 30000 (N.L.) 

0 que dever^ aparecer na tela? 0 conteudo do par de 
registros BC, ou seja, 256 x 0 + 42 = 42. Isto porque o 
par de registros foi alterado antes da instrupao RET; 
assim seu conteudo inicial que era BC = 30000 ('7530) 
foi modificado pelo programa para BC = 42 ('002A'). 

H3 tambdm a possibilidade de carregar diretamente 
pares de registros; neste caso pordm, cada instrupao cor- 
responded a 3 bytes, 1 para o cddigo de operapao e 2 
para o numero que deved ter 16 bits. Note que, como 
foi comentado anteriormente, voce devera colocar antes 
SEMPRE 0 BYTE MENOS SIGNIFICATIVO; assim 
temos as seguintes instrupoes: 



INSTRUgAO 


COOIQO 


LO BC, dado 
LO OE, dado 
LO HL, dado 


‘01 ' ♦ 2 bytas para o dado 
*11' ♦ 2 bytas para o dado 
'21' ♦ 2 bytas para o dado 



(• mrtruQAo LO par da registros. dado (16 bits).) 



E fapamos o programa: 

MEM. 3MM LO BC. MAC tlAMT . mvtnio do 

'A0* com *00* 

MEM 36662 RET C9* 

(va>a nP 4 ou n9 axtra promotional) 

Usando HEXAMEM, coloque o programa a partir da 
memoria 30000. Verifique que fazendo PRINT USR 
30000 voce obted 160 (Por que?). Voce nao precisa 
preocupar-se em "apagar" o programa anterior, pois es- 
tad escrevendo “por cima" nas mesmas memdrias. 

Experimente "esquecer" de inventar os bytes confor- 
me indicado e introduza este programa: 

(1MAC 

C9- 

0 que voce id obter? Tente explicar o resultado. 

Vamos ver agora, como passar numeros de um regis- 
tro para o outro; teremos todas as combinapoes pos- 
siveis da seguinte instrupao gendrica: 

LD registro, registro, 

a qual copia o conteudo do registro da DIREITA no re- 
gistro da ESQUERDA, nao alterando o conteudo do re- 
gistro da direita; esta instrupao equivale a apenas 1 byte 
em cddigo hexadecimal pois nSo exige que nenhum da- 
do seja explicitado. Para facilitar, iremos construir uma 
tabela que possui todas as combinapoes possfveis desta 
instrupao: 



LO 


A 


B 


C 


D 


E 


H 


L 


A 


*7F' 


78' 


79' 


7A* 


7B' 


*7C* 


*70* 


B 


*47' 


*46* 


*41* 


•42* 


*43* 


'44' 


•45* 


C 


*4F* 


*48* 


•49' 


'4A* 


*48* 


•4C' 


'4D' 


0 


*57* 


'56' 


*51* 


*52* 


•63* 


•54' 


'55' 


E 


'6F* 


*58' 


*69' 


'BA* 


'6B' 


•6C' 


•60' 


H 


'67' 


'66' 


*61* 


'62' 


63' 


64' 


•65' 


L 


'6F* 


'68' 


•69* 


6A' 


68' 


*6C' 


*60* 



Para utiliz^-la, use sempre primeiro a coluna vertical 
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a esquerda e, a seguir, 
exemplo: 

LD C,D equivale a '4A' 



a linha horizontal superior; por 



LD E,E equivale a '5B' 



(copie o conteudo do registro 
D no registro C, sem alterar o 
registro D). 

(copie o conteudo do registro 
E no registro E. Como voce 
pode notar esta instrugao nao 
faz absolutamente nadal). 

Experimente agora o seguinte programa, que copia o 
conteudo dos registros H e E, previamente carregados, 
nos registros B e C respect ivamente: (lembre-se que, por 
enquanto, iremos fazer sempre MEMORIA INICIAL = 
= 30000 e que o final de memdria deve estar reservada 
antes de colocar HEXAMEM no computador). 



(NOTA: NAO existe instrugao para copiar de umasd 
vez numeros de 1 par de registros para outro; assim, por 
exemplo, a instrugao LD BC, HL nao 6 vdlida e deve ser 
substitui'da por: 

LD B,H e LD C,L 

Aldm disso, NAO d possi'vel tentar copiar o con- 
teudo de urn registro para urn par ou vice-versa; portan- 
to, instrugoes do tipo: 

LD BC,A 

LD D,HL 



nao existem! 



MEM. 3#t## 


LDM.'iV '26#1* 


; carrega H com *fV 


MEM. 3###2 


LDE. *5T '1E5#' 


; carrega E com ‘5#* 


MEM. 30064 


LD B.H 


*44' 


; copia H em B 


MEM 3#MS 


LDC.E 


'48' 


; copia E em C 


MEM. 30646 


RET 


*C9* 


; volta ao BASIC 



Utilize entSo HEXAMEM para colocar os codigos do 
programa na memdria e, no final, ao invds de teclar P 
(pare), tecle XS (eXecute em Slow) ou XF (eXecute em 
Fast) para que o programa seja executado. Naturalmente 
se voce prefere continuar fazendo PRINT USR 30000 
nao problemas. 

Perceba que este programa "carrega" o registro H 
com '01' e o registro E com '50' (80 em decimal) e, a se- 
guir, copia o registro H em B e o registro E em C, fazen- 
do BC = '01 50'. Desse modo, voce poderd obter 1 * 256 + 
+ 80 = 336. 



A ti'tulo de esclarecimento, podemos agora fazer uma 
analogia com o BASIC; a instrugao LD registro, dado de 
1 byte ou LD par de registros, dado de 2 bytes pode ser 
associada a instrugao LET variavel = numero, por exem- 
plo, LD B, '10' com LET X = 16. A instrugao LD regis- 
tro, registro pode ser associada a LET variavel = varia- 
vel, por exemplo, LD H,L com LET X = Y. 

£ conveniente lembrar que ao chamar uma subrotina 
em linguagem de maquina, apenas o conteudo dos regis- 
tros B e C a conhecido; todos os demais tern um con- 
teudo desconhecido. 0 mesmo 6 vaiido para a memdria 
que fica apds o programa. Vamos exemplificar: ao fazer 
RAMTOP = 30000, reservamos a memdria de 30000 a 
32767. Se tivermos um programa que ocupa 100 bytes, 
ou seja, da memdria 30000 a memdria 30099, as posi- 
goes de 30100 a 32767 terao valores "quaisquer". E nes- 
ta regiao de memdria APOS o programa em linguagem 
de n^quina que colocaremos as varidveis do nosso pro- 
grama que nao "couberem" nos registros. q 
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OS OITENTA 



UM EDITOR DE CARTAS 




Igor Sartori 



Um dos recursos mais interessantes de um compu- 
tador 6 sua capacidade de manipulatpao de texto. Ou se- 
ja, juntar, separar, quebrar e classificar strings (cadeias). 
Isso permite usar o computador e sua impressora como 
uma m^quina de escrever "inteligente". 

Programas com esta finalidade, sao chamados de "edi- 
tores" ou "processadores de texto" e atualmente, sao 
bastante usados em jornais para facilitar os trabalhos de 
diagramagao, revisao e redagao de artigos. 

Em algumas revistas especial izadas tern aparecido 
muitos programas que realizam uma ou outra fungao de 
manipulagao de strings, principalmente para compu- 
tadores compati'veis com o TRS-80 e o Apple II. 

Se voc§ tern um TK-82 e viu algum destes programas, 
deve ter pensado: "Interessante . . . mas como eu pode- 
rei fazer o mesmo no meu computador?" 



Um editor de cartas 



If ’ EDITOR OE CARTAS 
20 CLEAR ’20*19 
30 DIM AS (109) 

40 INPUT "QUAL O NUMERO MAXIMO DC CARACTERES" j N 
50 INPUT “NOME DO AUTOR DA CARTA - } NS 
00 INPUT "DATA (POK EXTENSO) - ;DS 
70 INPUT “CIDADE DO AUTOR DA CARTA * } LS 
00 INPUT "NOME DO OESTINATARIO "}01S 

90 INPUT - ENDERECO (Ru« • numcro) DO OESTINATARIO a ;ES 

109 INPUT "CEP, 0 NOME DA CIDADE, 0 ESTAOO DO OESTINATARIO (EH UMA UNI 
CA LINHA) "} T1S 

110 INPUT "DIC1TE ' Prezado («) St(«.) PRIMERO NOME DO OESTINATARIO* "|A1 

120 PRINT CHRS (31) 

130 PRINT" IN5TRUCOES" 

140 PRINT "INTRODUZA AS LINHAS UMA A UMA." 

150 PRINT "SE OCORRER UM ERkO EM UMA DELAS , ELA POOERA SER" 

100 PRINT "SER CORRIGID A DIGIT ANDO- SE *•* E SEU RESPECTIVO NUMERO" 

170 PRINT"DIGITE 'UM' PARA PARAR" 

100 FOR X-l TO 190 
190 Z*X 

200 PRINT "l"jX 
210 INPUT AS (X) 

229 IP LEFTS (A$(X) , 1) ■"#" THEN 450 

230 If AS(X)-"riM" THEN PRINT CHRS ( 31 ) tGOTO 200 

240 IP LENIAS(X)) > N THEN PRINT "LINHA MUITO GRANDE" :Y-IlX-X-H:C*i :M- 

• J GOTO 470 

250 NEXT X:X*X-1 

200 PRINT TAB ( 5 ) ; LS ; " , " ; DS 

270 PRINT :PRINT:PRINT: PRINT 

209 PRINT TAB(5)}D1$ 

290 PRINT TAB ( 5 ) ; E$ 

300 PRINT TAB ( 5 ) } TlS 
310 PRINT 

320 PRINT TAB (5) ; A1S; " x" 

330 PRINT 

340 POR B-l TO X-l 
350 PRINT TAB (5) ; AS (B) 

300 NEXT B 



Mudando um pouco o enfoque dado em artigos ante- 
riores, mostraremos um programa destinado a outros 
computadores e depois de explicarmos detalhadamente 
seu funcionamento, descreveremos como voce poder3 
implementar um programa semelhante em seu TK. 

Este programa (veja listagem) tern a finalidade de co- 
locar um texto de uma correspondence num formato 
de carta padrao. 0 texto dever3 entrar linha por linha, 
poder3 ser corrigido em qualquer momento de sua di- 
gitapao - sendo impresso apos a digitagao da ultima 
linha, limpo e sem erros, j2 que eles foram eliminados no 
processo de escrita. Foi desenvolvido em BASIC padrao, 
podendo ser rodado na maioria dos computadores, me- 
diante adaptagoes a sua respectiva versao do BASIC (por 
exemplo, o Apple 1 1 e o TRS-80 e seus similares). 



370 C*23*B 
300 PRINT 
390 PRINT 

490 PRINT TAB (55) ; "At*ncio»a*«r\t*" 

410 PRINT 
420 PRINT 

430 PRINT TAB (53) } NS 
440 END 

450 ' ROTINA DE CORRECAO 

400 Y*VAL( RIGHTS (AS (X) , LEN ( AS (X) ) -1) ) 

470 INPUT "SCLECAO; I) INTRODUZIR NOVAMENTS A LINHA 2 ) CORRECAO" : A 
400 IP A<1 OR A>2 THEN 470 

499 ON A GOTO 599,529 

500 A5 (Y) : INPUT AS (Y) 

S 2«0** , " X,Ir °* k9 **)■■■ THEN GOTO 250 ELSE LET S-ViGOTO 

520 T*LEN(AS(Y)) 

530 C-l 
540 LET M-9 
550 QS* INKEYS 

500 IF 08-" " THEN IP OT THEN GOTO 550 ELSE LET W M»1 lC-C*l t IS-MIDf ( 
AS Of) ,M, I) :PRINT 1$; 

570 IP QS--D" AND C<-T THEM AS(»J- LEFTS ( AS (Y) ,C-1) ♦ RIGHTS (AS (Y) , LEM 
(AS (Y) | — C) 

500 IP OS--I" THEN INPUT J9 : AS (Y) "LEFTS (AS (Y) ,C-1) +JS+ RIGHTS ( AS (Y) , L 
EN(AS(YI)-C»1) 

590 IP QS* "E" THEN IT LEN (AS(Y)X-N THEN PRINT iPRIMT AS(Y):AS(X)-" 
LET tC-l:M*0iX*YsPRINT:PRINT AS (Y) :GOTO 240 

$!*!£! THEN I,RINT EIGHTS (AS ( Y I , ( LEN ( AS ( Y ) ) -C+l) J :C* 1 :M*0 
010 IP OS* B THEN PRINT CHRS ( 10 ) | J LET M-M-l lC-C-1 
020 GOTO 530 



T 
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FUNCIONAMENTO 



0 programa editor de cartas est3 dividido em quatro 
partes: introdugao dos dados do autor da carta e do des- 
tinat^rio, introdugao do texto da carta, corregao dos 
possi'veis erros e impressao da carta. 

Na primeira parte, que compreende as linhas de 10 a 
120, reserva-se inicialmente um espago na memdria para 
o texto da carta, por meio das instrugoes CLEAR 2000 
e DIM AS(100). A instrugao CLEAR 2000 reserva 2000 
bytes da memdria para strings e a instrugao DIM AS(100) 
dimensiona um vetor de 100 posigoes de memdria, que 
conter3 o texto da carta. Desta forma, poderemos escre- 
ver uma carta com no m^ximo 100 linhas ou 2000 letras 
(cerca de 200 a 300 palavras), o que d suficiente para 
um bom "bate-papo". 

A seguir, dimensiona-se o numero maximo de caracte- 
res por linha. Isso serd fungao do tamanho do papel dis- 
pom'vel e do tamanho da margem direita e esquerda. No 
programa, a margem esquerda foi fixada em 5 espagos, 
ficando a margem direita a critdrio do usuario. 

A seguir sao pedidos os dados do autor da carta e do 
destinatdrio. Na linha 100 pede-se o CEP, a cidade e o 
Estado do Destinat^rio. Estes dados deverao ser digita- 
dosem uma unica linha, separados por um espago. 

Uma vez digitados todos os dados, a tela 6 limpa, por 
meio da instrugao PRINT CHR$(31). Isso prepara a tela 
do computador para a introdugao do texto da carta. 



A INTRODUQAO do texto 



No momento da introdugao do texto, o programa 
mostra na tela uma s6rie de instrugoes destinadas a ex- 
plicar como proceder. 

A seguir, o computador mostra o si'mbolo "#" segui- 
do pelo numero 1 . Isso indica que voce deve digitar a 
primeira linha de seu texto. Quando terminar de digit^- 
la, pressione a tecla ENTER, NEW LINE ou equivalente. 
Se a linha for muito grande, o programa entra automati- 
camente no modo de corregao, exibindo a mensagem: 

LINHA MUITO GRANDE 

Se, por outro lado, o numero de caracteres digitados 
for menor que aquele estabelecido no im'cio do progra- 
ma, o computador exibir^ novamente o si'mbolo "#", 
seguido pelo numero 2, indicando que devemos digi- 
tar a prdxima linha, e assim sucessivamente, at6 que seja 
digitada a palavra FIM, com todos os caracteres em 
maiusculas, ou quando o numero de linhas exceder a 
100 - limite estabelecido pelo programa. 

Neste momento o programa passa para o modo "im- 
pressao", limpando a tela e imprimindo o texto no for- 
mulcirio, segundo a formatagao pr6-estabelecida pelo 
programa. 

OMODODECORREQAO 



Em qualquer momento da digitagao, podemos entrar 



no modo de corregao para corrigir um erro que porven- 
tura tenha sido cometido ou se simplesmente desejarmos 
ver uma linha qualquer, ja digitada anteriormente. 

Para entrar no modo de corregao, devemos pressionar 
a tecla ENTER na linha que estivermos digitando. Quan- 
do o computador mostrar o si'mbolo de "#" seguido pe- 
lo numero da prdxima linha, devemos digitar o sfmbolo 
"#" seguido pelo numero da linha que desejarmos — que 
pode ser qualquer uma — , inclusive a ultima linha digi- 
tada. 

Uma vez feito isso, o computador nos apresenta duas 
possibilidades de escolha: digitar novamente a linha ou 
corrigi'-la. 

Se escolhermos a primeira opgao, basta, ap6s indicar a 
escolha ao computador, digitar a linha novamente, lem- 
brando-se que existe um limite ao numero maximo de 
caracteres. 

Na segunda opgao teremos b nossa disposigao, v^rios 
caracteres auxiliares com fungoes de corregao: 

Espago - a tecla de espago permite, ao ser pressionada, 
mostrar a linha caractere por caractere. 

L - a letra L maiuscula permite visualizar-se a linha to- 
da na tela. 

B — tern a fungao de backspace, ou seja, retorna o cur- 
sor sem apagar o caractere mostrado no vi'deo. 

D - apaga o caractere imediatamente £ direita. 

I — permite a inclusao, em qualquer ponto da linha de 
v^rios caracteres. Uma vez digitado o caractere "I", os 
caracteres usados como comando, passarao a atuar como 
caracteres normais. 

E — volta ao modo de introdugao de linhas, na mesma 
linha onde foi abandonado. 

Sempre que a linha estiver muito grande, o compu- 
tador avisar3, exibindo uma mensagem e retornando ao 
modo de corregao. 



POSSIBILIDADES DE 
MUDANQAS 



Este programa podera ser modificado de acordo com 
as suas necessidades e sua imaginagao. Por exemplo, po- 
demos eliminar as linhas relativas £ correspondence e 
torn^-lo mais geral. Poderemos, ainda, tentar transfor- 
mar a rotina de verificagao do tamanho da linha (linha 
240) em uma rotina que, alem de verificar o tamanho da 
linha digitada, "quebra" o seu texto, transferindo os ca- 
racteres excedentes para a linha posterior. 

As modificagoes mais interessantes, no entanto, sao as 
que tornam este programa compati'vel com o TK. Mos- 
traremos, na prdxima parte, um conjunto de dicas para 
traduzirmos este programa para o seu computador. Estas 
dicas sao interessantes mesmo para quern nao vci fazer 
um programa de edigao de cartas, pois elas valem para 
v3rios outros programas. 

Nota: A listagem que mostramos nao imprime o texto, 
mas mostra-o na tela. Isso £ conveniente na fase de 
debug, quando eliminamos os erros de I6gica e de digita- 
gao, pois evita-se o gasto de papel desnecesscirio. Uma 
vez corrigido o texto, mude as instrugoes PRINT das 
linhas 260 d 430 para LPRINT. 

O 
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RESPOSTA DO QUEBRA-CABEQA 



@ MENSA 

International 




Dentre as muitas respostas que recebemos de nossos 
leitores do Quebra-Cabega "Motoqueiro no Deserto" en- 
contramos, mais uma vez, a de Samuel Ejchel. 

Desta vez, por6m, ela nos chegou as maos a tempo de 
ser escolhida para publicagao. Isso pela clareza e simpli- 
cidade com que ele abordou e resolveu o problema. 

Recebemos muitas outras respostas de nossos assinan- 
tes, por6m estavam corretas apenas as enviadas por 

Andr6 B. Hartmann 
Antonio Cesar Lettieri 
Albio Boing. 

Marcos Antonio Pichateber 

0 Quebra-Cabega da revista nQ 3admite muitas solu- 
goes ou instrugoes equivalentes, que conduzem sempre a 
uma distancia maxima de 275 km. 

0 itiner^rio na condigao da solugao 6tima, pode ser 
decomposto em 3 trechos: 

1. 0 ultimo, que o motoqueiro percorre apenas duas ve- 
zes, uma indo outra voltando. Para ser m^ximo, ele deve 
partir com tanque totalmente cheio e caminhar 150 km 
para frente e em seguida retornar. 

2. Como existe combust ivel dispom'vel para 900 km e o 
tanque da moto leva o equivalente a 300 km, havers um 
primeiro trecho que, no mmimo, dever3 ser percorrido 
6 vezes, 3 indo e 3 voltando. Isto porque 900:300 =3. 

Para otimizar, este trecho deve ser o mais curto pos- 
sfvel. 

3. No segundo trecho, que liga o fim do IP com o im'cio 
do ultimo, deve-se levar e deixar combust ivel suficiente 
para os 300 km do ultimo trecho. Como a capacidade 
total do tanque 6 equivalente a 300 km nao ser3 possivel 
fazer isso em menos que 2 etapas, ou seja, a moto dever3 
percorrer o segundo trecho no mmimo 4 vezes, duas 
indo e duas voltando. Como no primeiro a moto percor- 
re 6 vezes e neste so 4, devemos fazer este trecho o mais 
comprido possivel, em detrimento do primeiro, ou seja, 
a moto deve sempre partir com o tanque cheio e cami- 
nhar a maior distancia possivel, deixando sobrar no fim 
o equivalente a 1 50 km por etapa. Assim este trecho de- 
ver3 ter 75 km de forma que a moto sai com o equiva- 
lente a 300 km (tanque cheio), viaja 75 km, deixa o 
equivalente a 150 kn , e retorna consumindo o equiva- 
lente a 75 km restantes no tanque. O consumo total nes- 
te trecho ser3 tamb^m do equivalente a 300 km 






Motoaueiro no Deserto 

Samuel Ejchel. 

(4 x 75 km). 

4. Finalmente, para o primeiro trecho, resta combusti'- 
vel equivalente a 300 km, ou seja, 900 iniciais menos 
300 consumidos no 29 trecho e menos 300 consumidos 
no ultimo. Ora, como ele 6 percorrido 6 vezes, sua ex- 
tensao serci de 50 km (300:6). Com isso a distancia ma- 
xima atingida pela moto seria 50 + 75+ 150 = 275 km. 

5. Entre as v^rias alternativas possi'veis de programa, a 
mais simples parece-nos a seguinte: 



10 

20 

30 

4-0 

50 

50 

70 

30 

90 

100 

110 

120 



130 



14-0 



150 

160 

170 

130 

190 

200 

210 



ENCHA 0 TftNO UE NR RLDEIR. 
PENETRE 50 KM NO DESERTO. 
FAC A UH RESERUATORIO COM 
COMBUST IUEL PRRfl 2O0 KM. 
RETURNS RRRR fl RLDEIft. 
REPITfl RS XNSTRUCOES 10 R 
4-0 MRXS UMA UEZ . 

ENCHft O TANQUE NR RLDEIR 
PELA TERCEXRR UEZ. 

PENETRE NO DESERTO ATE* 
RTINGIR OS RESERUATORIOS 
R 50 KM DR RLDEIR. 
COMPLETE O TANQUE DR MOTO 
RETIRRNDO COMBUST IUEL DE 
UM DOS RESERUAT ORXOS . 
PENETRE MR IS 75 KM NO DE- 
SERTO . 

FRCR UM RESERUATORIO COM 
COMBUST IUEL. PRRR 150 KM. 
RETORNE RTE OS RESERUATO- 
RIOs R 50 KM DR RLDEIR. 
ENCHA O TANQUE DR MOTO. 
DEUEM TER REST ADO COMBOS - 
T IUEL. SUFICIENTE PRRR 50 
KM NUM DOS RESERURTORIOS . 
PENETRE NOUAMENTE 75 KM 
ATIN6INDO O RESERUATORIO 
COM COMBUST IUEL PRRR 150 
KM . 



COMPLETE O TANQUE DR MO- 
TO. DEUEM REST RR NO RE- 
SERUATORIO, COMBUST IUEL 
PRRR 75 KM. 

PENETRE MR IS 150 KM NO 
DESERTO. 

PLANTE R BRNDEIRR. 

RETORNE RTE* O RESERUATO- 
RIO QUE CO NT EM COMBUST I - 
UEL PRRR 75 KM, 

COLOQUE NO TANQUE TODO O 
COMBUST IUEL EXISTENTE NO 
RESERUATORIO. 

RETORNE RTE* O RESERUATO- 
RIO QUE CONTEM COMBUST I - 
UEL PRRR 50 KM. 

COLOQUE NO TANQUE TODO O 
COMBUST IUEL EXISTENTE NO 
RESERUATORIO. 

RETORNE R RLDEIR. 



O 
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Nos prbximos dias 1 7 a 23 de outubro, Sao Paulo ser3 
palco de um grandioso evento organizado pela Guaselli e 
SUCESU, contando com o apoio da ABICOMP: 0 
INFORMATICA/83. 

Este evento, a m'vel internacional, conta com a reali- 
za<pao de dois acontecimentos importantes, ou seja:a III 
Feira Internacional de Informatica e o XVI Congresso 
Nacional de Informatica, ambos acontecendo paralela- 
mente um ao outro. 

Este evento 6 de tao grande importance que, juntos, 
s3o considerados o terceiro maior acontecimento no 
mundo, na Area de Informatica, igualando-se ou, supe- 
rando at6, o NCC nos EUA e o SICOB na Francpa. 

A programagao do INFORMATICA/83, foi estrutura- 
da toda ela na preocupagao em atingir n§o somente aos 
profissionais e fabricantes do setor, mas tambam ao jo- 



LIVRARIA 
POLIEDRO 

REVISTAS NA INFORMATICA 

faga sua assinatura 

- BYTE, the small systems journal 

- BASIC COMPUTING, the TRS-80 journal 

• COMPUTERS & ELECTRONICS, formerly popular 
electronics 

• COMPUTE, the leading magazine of home, educational and 
recreational computing 

- COMPUTE S GAZETTE. Commodore VIC-20 and 64 
personal computers 

- CREATIVE COMPUTING, computers and people 

- DESKTOP COMPUTING, the plain language computer 
magazine for business 

- INCIDER, Green’s Apple magazine 

- INTERFACE AGE, computing for business 

• MICRO. Advancing computer kowledge 

- MICROCOMPUTING 

- MICROSYSTEMS, the CP/M user’s journal 

• MIX, the recording industry magazine 

- NIBBLE, the reference for apple computing 

- 80 MICRO, the magazine for TRS-80 users 

- PERSONAL COMPUTER World 

- PORTABLE COMPUTER 

- PC. the independent guide to IBM personal computers 

- PC WORLD, the personal computer magazine for IBM PCs 
and compatibles 

- SYNC, the magazine for Sinclair users and 
TIMEX/SINCLAIR users. 

obs.: deixamos de colocar pre^os das assinaturas em 

virtude da constante altera^o cambial. Consult e-nos 
Atendemos pedidos pelo reembolso postal - 
LIVROS E REVISTAS 

LIVRARIA POLIEDRO LTDA. 

R. Aurora. 704 (prdx. Metrd Republica ) 

01209 - Sao Paulo. $f> - tels. 221.6764 - 222.4297 



ELcv, F^oWtaL Ana LCicia de Alcantara 

vem e a crianga — que serao os "amantes da informatica 
no futuro" — , como tamtam aos leigos, ou seja, aqueles 
que nao possuem um conhecimento mais aprofundado 
da area. "Uma oportunidade para que todos aqueles que 
se interessam pelo fant^stico mundo da informatica, te- 
nham acesso £s informagoes basicas" — esclareceu Salva- 
dor Perroti, presidente do Evento INFO/83. 

Esta programagao tera uma movimentagao calculada 
em cerca de 200 mil pessoas, conforme expos o presi- 
dente do Evento (Salvador Perroti) — , com uma area 
ocupada, na Feira, de cerca de 23 mil metros quadrados, 
sendo que 19 mil sera ocupada por expositores (mais 
ou menos 70 por cento constitui'da de equipamentos fa- 
bricados no Brasil, de empresas com desen volvi men to 
e tecnologia proprios); dois mil metros ocupados por 
universidades brasileiras e mil por entidades e institui- 
goes governamentais. 

Assim sendo, na opiniao do presidente da Feira Jos6 
Roberto Faria Lima, "a grande vedete deste evento, sera 
a presenga marcante da tecnologia nacional, e, "na fei- 
ra", (acrescentou Jos6 Roberto), "sera a area de micros, 
pois esta e a area mais proxima do grande publico — a 
area de contato da informatica com o publico que hoje 
existe no Brasil". 

A Feira: 

A III Feira Internacional de Informatica na realidade, 
sera a "chamariz" para toda a programagao do evento. 
Com inumeras atragoes: atividades que incluem debates 
para universitarios, para o grande publico e para empre- 
sarios e profissionais de informatica, abordando temas 
centrados no universo da informatica, nao s6 a mvel de 
desenvolvimento da area como avaliagao da tecnologia 
adotada pelo Brasil; al6m de temas referentes a politica 
nacional de software e tambam referente as preocupa- 
goes de todos com a regulamentagao da profissao e o 
sindicalismo na area; final izando esta s6rie de debates na 
feira, estara presente a preocupagao com a anaiise da 
presenga do Estado na economia da area de informatica. 

Aiam destes debates havera tambam um circo monta- 
do especialmente para as criangas, onde estas poderao 
tomar contato com os micros que estarao no picadeiro 
do circo, atravas de orientadoras e pedagogos especial- 
mente treinados para "brincar" com as criangas e o com- 
putador. E um robo, trazido especialmente para a feira, 
jogara uma partida de xadrez com o vencedor de um jo- 
go realizado numa praga publica com um tablado e com 
pegas gigantes. 
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Outra preocupagao dos organizadores desta feira, foi 
com a melhor forma de locomogao do publico dentro 
do Anhembi. Para isto, os stands foram distribu fdos por 
area, mostrando os produtos nacionais e estrangeiros la- 
do a lado. Para a orientagao do publico, foram pintadas, 
no chao, setas coloridas indicando o circuito a ser per- 
corrido. 

O Congresso 

0 XVI Congresso Nacional de Inform^tica tern uma 
tradigao que remonta dos tempos dificeis de ano de 
1967 que, na bpoca, foi chamado de Congresso Nacional 
de Processamento de Dados e que reuniu pouco mais de 
500 pessoas. 

Hoje em dia o Congresso tern o objetivo de colocar as 
tbcnicas automatizadas nao so aos tecnicos, como tam- 
bbm ao grande publico. 

Os semin^rios e debates do Congresso, contarao com 
, a presenga de expositores de renome internacional como 
por exemplo Ralph Gomory falando sobre a Evolugao 
da Tecnologia dos Computadores; John Maccarthy abor- 
dando o tema "Inteligencia Artificial'' e Y.F. Lum falan- 
do sobre Videotexto, albm de outros. Os temas versarao 
sobre diversos assuntos, tentando sempre atingir a todos 
os interesses. No dia 17, haver^ a abertura, com segao 
solene e o congresso se estender^ atb o dia 23 as 17 
horas. 

0 Congresso estara distribu ido no Anhembi, desde o 



plen^rio, ampliando-se aos auditbrios E, G, J, na sala A, 
B, H e L; iniciando-se as palestras, debates e cursos tbc- 
nicos as 8 horas e encerrando-se as 1 7 horas. 

0 intuito real dos organizadores de tamanho evento b 
transmitir a todos os frequentadores, a imagem de que a 
convivencia entre o homem e o computador pode ser pa- 
cifica e recheada de trocas de informagoes uteis ao de- 
senvolvimento da humanidade. Tanto 6 que, na feira, ha- 
verb uma exposigao de "artes plbsticas", reunindo pai- 
nbis, pinturas, grbficos e desenhos de vbrios autores fei- 
tos por computadores em todo o pais. 

Diante de tudo isto onde estara a nossa revista? 

Nosso stand ser3 especial; numa esquina localizada na 
rua M, numero 7 no formato de uma banca de jornal, 
com computadores TK funcionando durante todos os 
sete dias da feira. 



J 
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Linguagem de maquina. 




Contando com pessoal de atendirnento 
treinado nas proprias fabricas, o Depto. de 
Microcomputador da Allcolor esta a sua 
disposicao para falar-lhe fluentemente tudo 
sobre CP200, CP300, CP500, TK82, TK83 ou 
TK85. Falar-lhe das caracteristicas 
especificas de cada hardware, dos 
equipamentos e configuracoes apropriados 
para cada uso, dos varios softs aplicativos ou 
jogos e, principalmente, falar-lhe das 
facilidades que a Allcolor, atraves do 
financiamento direto ou consorcio, oferece 
para voce adquirir o seu microcomputador. 
Fale com o pessoal da Allcolor, ele vai falar a 
sua linguagem. 



Jacarei: Pea. Conde de Frontin, 76 S.J. Campos. R. XV 
de Novembro, 9 e Calpadao, 383 - Taubate: Bispo 
Rodovalho, 20 e Calcadao. 64. 
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PROTEQAO juridica 

DO PROGRAMA DE UM COMPUTADOR 

1? parte 




A questao da protegibilidade, ou nao, do programa de compu- 
tador eletrbnico, atravSs de normas juri'dicas adaptadas ou pr6- 
prias, nao 6 muito novo. Em 1964, o Copyright Office, que 6 o 
6rgao da Biblioteca do Congresso Norte-americano encarregado 
do desempenho de todas as funpoes e obrigapoes administrativas 
decorrentes da legislapao sobre o direito autoral estadunidense (o 
chamado copyright), ja havia decidido efetuar o registro - como 
sendo obra susceti'vel daquela protepao — dos programas de com- 
putador eletrdnico, desde que (a) fossem o resultado de uma 
autoria pessoal (contendo, portanto, originalidade), (b) j£ tives- 
sem sido publicados (isto 6, postos a disposipaodo publico) e (c) 
fossem entregues (aquele 6rgao) cdpias elaboradas de maneira 
humanente legi'veis. Em 1967, o Centro de Estudos Internacionais 
da Propriedade Industrial, que 6 6rgao da Faculdade de Direito e 
de CiSncias Poh'ticas e EconOmicas de Estrasburgo, na Fran pa, 
realizou urn coldquio de engenheiros de processamento de dados, 
juristas e outros cientistas, sob o tema "A PROTECAO DOS RE- 
SULTADOS DA PESQUISA EM FACE DA EVOLUCAO DAS 
ClfNCIAS E DAS TEiCNICAS". quando foram examinadas ques- 
toes atinentes a Microbiologia, a Qui'mica Macrocelular, a Infor- 
m^tica e, em particular, aos Programas de Computadores Eletrb- 
nicos. Se bem que, naquela altura, o Parlamento Frances j£ dis- 
cutia o projeto de lei (promulgada em janeiro de 1968) que ex- 
cluiu da protepao pela Propriedade Industrial os programas, ne- 
gando-lhes os direitos de patentes de invenpao e os de privil^gios 
correspondentes, houve grande debate quanto a patenteabilidade 
dos programas, defendida por maioria. A tendSncia naquele colo- 
quio foi no sentido de que os programas poderiam ser protegidos 
pelo direito decorrente da concessao de patentes de invenpao. Po- 
r6m tamb^m houve juristas que defenderam a tese de que o pro- 
grama poderia e deveria ser protegido pelas regras do Direito 
Autoral, tendo em vista tratar-se de verdadeira obra do espi'rito 
humano, de natureza evidentemente intelectual, sujeita a reprodu- 
ce e execupao, tal como se da com os roteiros cinematogr^ficos, 
ou com os projetos de engenharia (posipao at6 hoje defendida pe- 
la maioria dos doutrinadores italianos, em razao de peculiaridade 
do seu direito autoral interno, como se ver3 mais adiante). AI6m 
do exemplo norte-americano, tamb^m as Filipinas introduziram, 
expressamente, no seu Decreto de 14 de novembro de 1972 (re- 
lativo a propriedade intelectual), os programas de computadores, 
como obras as quais ele se aplica, segundo dispoe o seu art. 2, na 
alinea "n'\ 

No Brasil, JOSE: CARLOS TINOCO SOARES parece ter sido 
o pioneiro na publicapao de estudo a respeito do assunto, quando 
divulgou urn artigo intitulado PROTEQAO DOS PROGRAMAS 
DE COMPUTADORES, atrav^s da Revista de Direito Mercantil, 
volume 17, de 1975 nas paginas 39/44. Ali, TINOCO SOARES 
defendeu a inaplicabilidade do Direito Autoral aos programas, 
assim como das regras atuais da Propriedade Industrial (patente 
de invenpao, ou privil^gio de modelo industrial), nada obstante 
tivesse proposto a introdupao, em nosso sistema de direito positi- 
vo, de um privit&gio dos programas de computadores, por um 
tempo determinado e nao excedendo o rrrfximo de cinco anos 
(ob. cit. p^g. 44). 

Posteriormente, ROBERTO FRANK, CLAUDIO DE SOUZA 
AMARAL e HENRIQUE GANDELMAN trataram do assunto em 
artigos publicados no peribdico TELECOM (de 09.1 1 .79 e 06.08. 
79, os dois primeiros, respect ivamente) e no JORNAL DO 
BRASIL de 24.08.80, o ultimo, todos defendendo, no entanto, 
a inclusao dos programas entre as obras protegidas pelo Direito 
Autoral, embora com alguma temperanpa. 

Em 1979, a CAPRE - Comissao de Coordenapao das Ativida 
des de Processamento Eletrdnico — , extinta com a criapao da 
SECRETARIA ESPECIAL DE INFORMATICA - SEI -, que a 
substituiu, organizou um Grupo de Trabalho sobre Mecanis- 
mos de Controle a Importapao de Software , em cujo relatorio 



Eduardo J. Vieira Manso / Advogado 

prop6s, entre outras sugestoes, que, "no Brasil, se tomem as pri- 
meiras medidas para o estabelecimento de uma estrutura legal e 
juridica adequada, sem optar pela legislapao de direito autoral ou 
pelo direito de patente, que procure preserver e estimular as em- 
presas nacionais do ramo e aumentar em quantidade e qualidade 
a oferta de empregos para os profissionais brasileiros". 

Essa parece ser, mesmo, a tendfincia geral, a despeito dos Esta- 
dos Unidos da America, cuja Lei n9 96-51 7, de 12.12.80, alterou 
a legislapao relativa aos direitos autorais, para deixar inequi'voca 
sua protepao, como tal, aos programas de computadores eletrdni- 
cos, agora expressamente tratados como obras intelectuais gera- 
doras do copyright , ratificando assim, como 6 de costume por la, 
a posipao antes assumida pelo Copyright Office. 

A OMPI — Organizapao Mundial da Propriedade Intelectual — , 
entidade intergovernamental e 6rgao especializado da UNESCO, 
a qual tern sede em Genebra, e cujo principal papel 6 promover a 
protepao da propriedade intelectual (entendida esta como os di- 
reitos autorais e a propriedade industrial) por toda a Terra, al6m 
de administrar algumas das mais importantes convenpoes multi- 
lateral relativas ao Direito Intelectual -, depois de ouvir especia- 
listas de diversos pai'ses a ela filiados, criou, tamb^m, um Grupo 
Consultor de peritos governamentais, a fim de avaliar a necessida- 
de da protepao dos programas e a natureza de tal protepao. Entre 
outros motivos justificadores da oportunidade de uma protepao 
juri'dica, segundo o representante da Alemanha Ocidental, foi res- 
saltado o fato de que, se nao houver nenhuma protepao, os inte- 
ressados em obt§-la haveriam de adotar medidas de segredo (co- 




A 



MICR0C0MPUTAD0RES 

VENDAS 



• CURS0S DE BASIC 

• VIDE0CASSETE 




VENDAS E LOCACAO 

VIDEO GAMES 

VENDAS E LOCACAO 

ASSISTENCIA 
EMT0D0 0 
RAMO 




VIDEOTEC 

RUA VISCONDE DO RIO BRANCO. 44 - lOJAS 1/3 

Tabuate- SP TEL.: 33-2066 



MICROHOBBY 43 



mo. alias, algumas empresas produtoras de equipamentos fazem), 
afirmando que isso nao e desejavel, do port to de vista do progres- 
so dos conhecimentos teen i cos. 

Depois de diversos anos de reunifies, estudos e debates, a OMPl 
aprovou e publicou um conjunto de regras que ofereceu aos 
governos dos pai'ses filiados, para servirem de guias, modelos ou 
sugestfies para a elaborapao de suas proprias legislates internas 
A tais regras foi dado o ti'tulo oficial de "Disposipoes Tipos" e 
elas consagram a introdupao, no mundo juri'dico-legal, de um no- 
vo e especial direito para a protepao dos programas de compu- 
tadores eletrfinicos. que, tambbm, participa da classificapao dos 
Direitos Intelectuais (ou da Propriedade Intelectual, como tam- 
bbm sao chamados aqueles direitos) 

Al6m disso. a OMPl tambem concluiu pela oportunidade de 
propor aos governos dos pai'ses a ela filiados a aprovapao de um 
tratado internacional sobre a protepao do LOGICIARIO (palavra 
que e por mim proposta para substituir software, seguindo o 
exemplo dos franceses que a trocaram por fogiciel ) 

De um modo geral. as disposipoes tipos t$m a seguinte estru- 
tura (que se transcreve da revista Le Droit d' Auteur, de 1978, 
pag 13) O art i go primeiro define o objeto da protecao ("progra- 
ma de computador", "descrigao do programa", "documentacao 
auxiliar" e "logiciario", este ultimo consistindo em um ou varios 
dos objetos mencionados anteriormente), assim como define o 
termo "proprietario". O artigo 2 deter mina a quern pertencem os 
direitos re/ativos ao logiciario, particularmente quando este foi 
criado por um empregado; a/em disso, regu/amenta a transferencia 
e a reversao dos direitos re/ativos ao logiciario. 0 artigo 3 define 
a exigencia de originalidade do logiciario. O artigo 4 precisa que 
as no foes ( por oposifao a forma em que elas sao expressas) ficam 
fora dos I i mites da protecao fixada pela lei. 0 artigo 5 enumera os 
atos cobertos pe/os direitos do proprietario, cuja lista pode divi - 
dir-se em duas partes: os pontos I e II tratam da divulgacao nao 
autorizada do logiciario e do acesso nao autorizado ao logiciario, 
enquanto os pontos llle IV sao concernentes aos atos de copia, 
de uti/izacao, de venda, etc, nao autorizados, do logiciario. 0 ar- 
tigo 6 define a vio/aqao e preve dois casos que nao sao considera- 
dos como viola ^oes (criacao independente do logiciario e a situa- 
cao especial dos navios, dos engenhos espaciais ou engenhos de lo- 
co moqao a&rea ou terrestre estrange! ros que penetram o territdrio 
de um pa fs). 0 artigo 7 define a duraqao dos direitos confer! dos 
pela lei (20 anos, contados da data da criacao do logiciario) O ar- 
tigo 8 define as medidas judiciais disponiveis em caso de infraqao. 
O artigo 9 precisa que uma protecao fundada em outras disposi - 
foes (legais) nao fica excluida. 

Em junho do corrente ano, a mesma OMPl preparou um texto 
de um "Esbopo de Tratado para a Protepao do Logiciario" (em in- 
gl£s Draft Treaty for the Protection os Computer Software), cuja 
estrutura juridica e basicamente a mesma daquela que t£m as Dis 
posipfies Tipos, nas quais foram, evidentemente, calcados seus ar 
tigos. Assim, os seis primeiros artigos do "Esbopo de Tratado" re- 
ference ao direito relativo a protepao do logiciario: definicao. 
princi'pio da protepao (ou seja, prescreve a que a protecao a ser 
conferida em cada pat's signitario do tratado devera ser no mini- 
mo igual a protepao prevista no prfiprio tratado. o que, todavia, 
nao impedira que a protepao nacional seja ainda mais ampla que a 
do tratado), tratamento nacional (isto o tratado prescreve que 
aos estrangeiros, oriundos de pai'ses filiados a ele, recebam o mes 
mo tratamento que 6 dado aos nacionais, desde que tenham tarn- 
bbm cumprido as formalidades eventualmente exigidas, seja no 
seu pais de origem, seja no pai's em que estiver pleiteando a prote- 
pao), os atos contra os quais se aplica a protepao. a durapao da 
protepao (prevista em 20 anos, no tratado, tal como nas Disposi- 
poes Tipos) e os casos especiais dos vei'culos que ingressem no ter- 
ritbrio nacional, portando programas de seus pai'ses de origem 
Os demais artigos do projeto referem-se a assuntos administrati- 
vos, como as hipoteses e modos de revisao do tratado, as maneiras 
de ser parte dele e quando entra em vigfincia, assim como sua de- 
nuncia, etc. 

Simultaneamente, a OMPl, atravbs do seu ComitG de Peritos 
Governamentais, prepara-se para examinar, tambbm, a questao da 
protegibilidade dos "circuitos integrados" (tambem conhecidos 




FAQA 0 SEU CURSO BASIC 
EM CASA! 

CHEGOU O LIVRO 
QUE VOCE PRECISAVA! 



CURSO DE BASIC 

VOLUME I 



£ um guia compreensivo, projetado para ensinar o 
iniciante a programar um microcomputador, com 
teoria e exerefeios resolvidos. Ele tambfim traz DICAS 
para transformar outros programas para os 
computadores de Ifigica SINCLAIR: TK82, TK83, TK85, 
CP200 e outros. 

Este curso foi testado na MICRO KIT EDUCACIONAL 
e s3o 80 p£ginas de esclarecimento aos que iniciam 
ou que j& sSo iniciados: adultos e criangas. 



PEQA JA O SEU EXEMPLAR ! ^ 



Estou enviando o cheque n? nominal £ 

MICRO KIT INFORMATICA LTDA.. no valor de Cr$ 4.200,00 

por unldade e desejo receber exemplar(es) do 

LIVRO CURSO DE BASIC VOL I 



NOME: 

ENDEREpO. 

CIDADE: ESTADO: CEP: 

LOJA MICRO-KIT 

Rua Vlsconde de PirajA, 303 - SI. 210 
CEP 22410 • Rio de Janeiro - RJ 







LIVROS PARA 
TK82 - TK85 - CP200 



ITEM 


AUTOR 


TtTULO PRECO: Crt 


ooi 


TOMS 


TheZX-81 PocKet Book 


14 235. 


o 02 


STEWART 


Peek. Poke, Byte & Ram . 


9400. 


o03 


FLOEGEl 


• ZX-81/Timex Prog in Basic and Machine 


o04 


LOGAN 


Language 

Understanding Your ZX-81 ROM 


13580. 
17 000. 


o05 


HARRISON 


Bytemg Deeper into Your Time* 
Sinclair 1000 


16830. 


06 


HILTON 


TheZX-81 Add on Book 


10450. 


07 


GOH 


- Educare s 50 (IK Programs for Primary 






Education) 


11 300. 


•06 


HARTNELL 


49 Explosive Games for the ZX-81 


14 230. 


09 


HURLEY 


The Sinclair ZX-81 Prog tor Real Applic 


12 930. 


10 


MORSE 


The Century Computer Programming 
Course in Sinclair Basic Using the ZX^l 






and Spectrum 


18900. 


11 


PAGE 


37 Timex 1000/Smdair ZX^l Programs 
for home. School & Office 


11630. 


12 - 


PAGE 


101 Timex/Sinclair ZX-81 Prog Tips A 


M 




Tricks 


10335. 


* 13 


VALENTINE 


What Can 1 do With My T mriex Sinclair 1000 


12 935. 


14 

15 


MILGRON 

GOURLAY 


Not Only 30 Programs for the ZX-61 (IK) 
Fifty 1K/2K Games for the ZX 81 and 


13200. 






the Timex Sinclair 1000 


14 230. 


o 16 


CHIU 


Crunches 21 Simple Games for the 
Timex/Sinclair 1000 2K 






11630. 


° 17 


HARTNELL 


Making The Most of Your ZX-81 
Timex Sinclair 1000/ZX^l Basic Book 


14230. 


18 


NORMAN 


16.830. 


19 


UMA 


45 Programas prontos para rodar em 
TK82C NE Z 8000 


4000. 


20 
T 21 


LIMA 

LIMA 


Apfccecbes Sorias para TK82C/CP200 
30 Jogos p/TK82C e CP200 


4800, 

4000. 


22 


LAGROTTA 


- 0 Micro na Pequena Empresa 
(40 Programas) 


3980, 


Compre de qualquer parte do Brasil sem despesas Envie nos cheque 
cruzado em nome de CI^NCIA MODERNA COMPUTACAO. e receba em 


casa seu pedido Ou pepa peto reembolso Postal ou Varg 





PE DIDOS PARA 

CltNCIA MODERNA 
COMPUTACAO LTDA 

Av Rio Branco. 156 ■ subsolo li. 217 
20043 Rio d« Janeiro Fone: (021) 262 5723 



fscrevanos 

SOUCITANOO 

^ PI StU MtCROj 



44 MICROHOBBY 



como chips), que sao alvo de um desenvolvimento significative), 
nos ultimos anos, principalmente como incremento da fabricagao 
de inumeros produtos para uso dterio, principalmente para co- 
mandar certos processos eletrGnicos, como os das modernas m2- 
quinas de lavar, dos jogos, de brinquedos, etc. A protegao dos cir- 
cuits integrados, no entanto, ao menos segundo as regras previs- 
tas para a protegao dos programas de computadores, parece bas- 
tante incerto e algo remota. Por isso, a OMPI preferiu, a conselho 
dos peritos que integram seu Comitfi lntergovernamental,antesde 
propor qualquer regulamentagao protetiva, levantar todas as ques- 
toes que podem ser suscitadas a respeito, para equacion^-las e ve- 
rificar se, quando e qual protegao poder3 ser sugerida e proposta. 

No Brasil, portanto, ainda naoexiste nenhuma norma legal ex- 
pressamente destinada a proteger os programas de computadores 
eletrbnicos. A Secretaria Especial de Informdtica — SE I - estd 
diligente e cuidadosamente elaborando um esbogo de anteprojeto 
de lei, visando a estabelecer a protegao juri'dica dos programas de 
computadores, o qual esta estruturado mais ou menos no molde 
das Disposigoes Tipos da OMPI (a qual o Brasil & filiado). Com 
muita cautela e seguranga, a SEI est3 submetendo o seu estudo £ 
anSlise e ao exame dos especial istas brasileiros, pedindo-lhes su- 
gestoes, a fim de oferecer ao Governo um anteprojeto atual, mo- 
derno e eficaz, cujas normas possam conferir a melhor protegao 
juri'dica aos programas, aos seus autores e, principalmente, pro- 
curando prevenir os interesses nacionais a respeito, que hao de es- 
tar acima dos interesses privados, tendo-se em conta que o Mundo 
ser4 de quern detiver o maior numero possi'vel de informagoes e as 
puder processar eficientemente. 

Acompanhando de perto as sugestoes formuladas pelo Grupo 
de Estudos organizado pela CAPRE, assim como atendendo, no 



que Ihe foi possi'vel, as recomendagoes apresentadas pela "Comis- 
sao Especial n9 003/Software e Servigos" (CE-003), que a prbpria 
SEI constitui, nos termos da Portaria n9 003, de 20.03.80, pro- 
cura-se instituir um novo direito, especial para atender as neces- 
sidades tamtam especiais do seu complexo objeto. Esse direito, 
no entanto, por sua natureza e em razao principalmente da natu- 
reza de seu objeto, tamb^m pertence a classificagao de Direito In- 
telectual, situando-se, portanto, ao lado do Direito Autoral e do 
Direito de Propriedade Industrial, dos quais serd o irmao mais no- 
vo, posto que, sem nenhuma duvida, o programa de computador, 
bem como todo o logicterio, & uma obra intelectual. evidentemen* 
te. Assim, nao se estarao aplicando, integralmente, as regras do 
Direito Autoral, como haveria de acontecer se se admitisse, defini- 
tivamente, que os programas fossem obras objeto de tais regras, as 
quais, em conjunto, sao perniciosas para o interesse nacional e at6 
mesmo para a prdpria protegao pretendida. E nao se aplicarao as 
regras do Direito da Propriedade Industrial, que, ali3s, estao prati- 
camente vedadas, pelo que dispoe o C6digo da Propriedade Indus- 
trial, Cujo artigo 99, entre as "invengdes nao privilegteveis", in- 
clui, no inciso h , "os sistemas e programagoes, os pianos ou os es- 
quemas de escrituragao comercial, de c^lculos, de financiamento, 
de cr^dito, de sorteios, de especulagao ou de propaganda". 

Contudo, enquanto "seu" lobo nao vem, isto 6, na falta de 
normas juri'dicas especialmente aplic^veis aos programas, como 
poderao, os interessados em obter alguma protegao, defender es- 
ses mesmos interesses, principalmente quando ocorrerem atos de 
terceiros que Ihes firam o que a sua conscifincia Ihes aponta como 
"seus direitos". O que fazer contra a pirataria, que campeia 
solta? 

(Continua no pr6ximo numero) 
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teleart 




enderegos para 
voce resolver seus 
problemas e iniciar 
ou completar o seu 
projeto. 



Rua Aurora. 279 ■ SSo Paulo • SP 
Tels.: PABX 220-5322 e 223-821 1 
Telex: (01 1) 30743 TLCP BR 

(011) 31113 CCTPBR 



Rua Santa Efigencia. 378/380 ■ SP 
Tels.: 221-2210 e 222-7322 



memOrias 

CIRC. INTEGRADOS / 
SEMICONDU TORES, 
TECLADOS 

CAIXAS E KITS 
CONECTORES 
SOQUETES 
LIVROS TECNICOSj 
FERRAMENTAS 
INSTRUMENTS 



SAMEL 



Rua Aurora, 174 - SSo Paulo - SP 
Tel.: 220-6878 




REM ESS A POSTAL: 

Remetemos pelo correio, media nte o 
envio de Vale Postal ou cheque visado. 



InstalagSo de r&des e centra is telefdnicas. Completo estoque de 
materials p/telefones PBX e PABX. Redes de interfones e 
manutengao de centrais telefdnicas 
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PEQUENOS 




ANUNCIOS 



REVISTAS IMPORTADAS - FARAH'S BOOK 
SHOP — Rua Haddock Lobo. 1503 — Fone: 881-3410. 

Vendo Timex/Sinclair 1000, ZX SPECTRUM, produ- 
tos MEMOTECH (HRG, 64K, Interface para impressora, 
etc.), programas e outros perifdricos. Tratar com 

TAN IQS - Tel. : 270-3368, 

Servipo de Datilografia — IBM. Teses, apostilas e ma- 

nuais tdcnicos. Telefone: 258-8486 — Amirico, SP. 

GRANDE CIRCUITO — Boletim para usu^rios do 
TK. Duas mil cdpias em Off-set distribui'dos para todo o 
Brasil. Anuncios gratis. Informapdes: CP: 28, CEP: 
27200 - Piraf. RJ. 

SOFTSYSTEM — Software importado para TK82/85, 
NEZ, CP 200, ZX 81, etc. Linguagem de nriciquina inddi- 
tas. Solicite catdlogo para Caixa Postal 02, Poa, SP. CEP: 

0855a 

Troco ou vendo PROGRAMAS (NACIONAIS E IM- 
PORTADOS) para os micros: CP 200, TK82-C e ZX 81. 
Possuo Simulador de Voo, Turbo, Galaxy e muitos 
outros jogos e aplicativos. Tratar com Eduardo Medeiros 

— R. Eliseu Guilherme, 1076 — Ribeirao Preto — SP — 

CEPi 14100 — Atendo tamb^m por reembolso. 

Vendo ou troco PROGRAMAS DE JOGOS para 
TK82-C e TK85. Tratar com Edson — Rua Guariba, 54 

— Sao Paulo. Tel. : 9 18-0998 (c/ Ruth ), 

RADIO MICRO - 0 primeiro grupo de radio amado- 

res digitais do Brasil convida todos os radioamadores a 
conhecerem os projetos de hard e soft que estamos de- 
senvolvendo. Aos interessados entrarem em contato com 
PY-2-EMI Renato Strauss — R. Cardoso de Almeida, 

654/32 - 05013 - Sao Paulo , SP. 

Colocamos VIDEO-REVERSO em televisores 
TX-Philips, fazemos adaptapoes de TV's para monitor de 
video e vendemos kits de video-reverso. Luiz Wellington 

— Tel.: 224-2776 - Fortaleza/CE. 



Vendo programas nacionais e importados, 2K e 16K, 
BASIC e ASSEMBLER para micros TK82-C e similares 
(Aceito trocas) - Carlos A. Sciaretti - Caixa Postal 
5567 - Sao Paulo, SP - CEP 01051_- Tel. : 522-8586. 

Conversor do NEZ8000 para SLOW: Em Sao Paulo, 
WILSON DE ASSIS faz a inclusao desta funpao no 
NEZ8000 por Cr$ 20.000,00 (mais as despesas de em- 
balagem e correio) e d3 a garantia de 6 meses. Se o seu 
enderepo for prdximo ao dele, ele entregard em casa. 
O seu telefone 6: (Oil) 203-7967 e o enderepo: Rua 
Fabricio Correia, 145, Tucuruvi, 02311 - Sao Paulo - 

SP. 

Vendo esquema completo do microcomputador 
NEZ8000 (com SLOW e expansao de memdria) — 3 c6- 
pias heliogrdficas. Cheque nominal de Cr$ 6.000,00 pa- 
ra JAN MARTIN LUND, Rua Frederico Ozana, 16/21 — 

/ 1 100 — Santos — SP. 

Vendo ou troco programas de jogos para TK82-C e 
TK85. Tratar com Edson, R. Guariba, 54 — Sao Paulo — 

Tel.: 918-0998 (c/_Ruth). 

Curso de Linguagem de m£quina para TK82 e TK85 
(ASSEMBLY Z80). Aos sdbados das 9:00 &s 13:00 hs. 

— Sao Paulo — fone: 8 13-4555 (Marcia) a tarde. 

Troca de programas para TK - Carlos Horicio C. 
Fontenelle — R. At feu Aboim, 770 — Aldeota — Forta- 

leza -CE- CEP: 60000. 

Sou possuidor de muitos programas para o TK82. Os 
interessados em troc^-los escrevam para Marco Aurilio 
Dias de Oliveira — A v. A fonso Pena, 1557 — Bloco B — 
apto. 214 — Campo Grande/MS — CEP: 79100. 

ESPlAO — Jogo de Aventura para TK e CP-200. Um 
desafio a sua Memoria e Habilidade. 16K com SLOW. 
Cr$ 5.000,00. Pedidos pelo reembolso para Cx. Postal: 
28 - 27200 - Piraf - RJ. 
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Caso o seu micro nao leia bem f itas 
programadas, compre um CMS/ZX 



para os computadores de I6gica SINCLAIR: 




sinal emitido pelo 
gravador 






sinal modulado pelo 
CMS/ZX 



POLIMICRO 



Avenida Andrade Neves, 1.254 -Tel.: (0192) 8-0822 - CEP13.100 - CAMPINAS-SP 






□ DESEJO CONHECER AS REVENDAS DE MINHA CIDADE 

□ EM ANEXO ESTOU ENVIANDO CHEQUE NOMINAL NO VALOR 

DE Cr$ PARA ADQUIRIR UNIDADES DO CMS/ZX 



NOME: 


CIDADE: 


ENDEREQO: 


CEP: ESTADO: 






mieromega 



0123456789 



MICROMEGA Publica^oes e Material DkMtico Ltda. 

Caixa Postal 60081 - CEP 05096 Sao Paulo - SP 
CGC.: 52.275.724/0001 41 Inscr. Est 110 862 362 



n.° assinatura 







TELEFONE 
CGC ou CPF 
INSCRIQAO 



ASSINATURA 



Estou anexando a quantia de Cr$ 1 1 em cheque nominal 

para MICROMEGA P.M.D. Ltda., referente a venda de uma assinatura. va,e postal 

em cheque nominal n.° Banco 

Data / / 



ESTE CARTAO NAO PODE SER 
UTILIZADO POR TERCEIROS PARA 
COLETA DE ASSINATURAS 
Vilido somente se postado diretamente 
pelo assinante. 
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L*onl 






COMO COLABORAR 
COM MICROHOBBY 



A Revista MICROHOBBY foi criada para servir de in- 
tercambio entre os leitores que participam do m^gico 
mundo da computapao. 

A caracteri'stica realmente inovadora do computador 
pessoal, est3 em transformar cada consumidor num cria- 
dor. Aproveite sua criatividade e envie suas colaborapoes 
recebendo remunerapao a titulo de DIREITO AUTO- 
RAL. 

A maneira ideal de nos enviar o material a ser publica- 
do obedece ds seguintes normas: 

1. Nunca esquepa de colocar o nome completo, telefone, 
enderepo e niimero de sua assinatura em todo material 
enviada a n6s, sejam listagens de impressora, fitas, enve- 
lope, carta ou qualquer outro material. 

2. Envie a listagem de programa datilografada ou, me- 
Ihor ainda, tirada na impressora do computador. 

3. Coloque sempre uma linha REM com o nome do 
autor e o ti'tulo do programa. 

4. Envie uma fita com o programa gravado algumas ve- 
zes (se possi'vel em gravadores diferentes). 

5. Na fita, gravar com microfone (em viva voz), algumas 




instrupoes uteis: 
nome completo e enderepo do remetente. 

6. Quando o programa for adaptado e/ou traduzido de 
outra revista, citar a fonte (autor original, data de publi- 
capao, nome da revista e todos os detalhes que houver 
referente a publicapao). 

7. Anexar ao material, uma carta autorizando a publica- 
pao por parte da revista e assumindo a responsabilidade 
pela autoria do material e/ou adaptapoes. Nesta carta, 
para agilizar a remunerapao, podem constar os dados da 
conta corrente onde daremos o deposito correspondente 
aos direitos autorais. 

8. 0 material nao utilizado nao seri devolvido, ficando 
a critbrio da redapao a decisao final sobre sua publi- 
capao. 

9. 0 material deve ser enviado para: 

MICROMEGA PUBLICAQOES E MATE- 
RIAL DIDATICO 

SEQAO PROGRAMAS DO LEITOR 
RUA BAHIA, 1049 

01244 -SAO PAULO, SP. o 





COMO 
FAZER 
SUA 
ASSINATURA 



Qualquer reclama^ao deve ser feita por carta anexando, se possfvel, 
uma ttiqueta de endere^amento. para que o atendimento seja o mais 
rtpido possfvtl. 

O envelope deverS ser selado e enderecado a 



MICROMEGA P.M.D. LTDA. 
DEPTO. DE ASSINATURAS 

Caixa Postal 60081 - CEP 05096 
Sao Paulo - SP 



A nossa revista nSo 6 distribui'da nas bancas. Para 
obter seu exemplar mensal, contendo muitos programas 
para o seu TK, albm de muitas dicas e premios interes- 
santi'ssimos, voce deve fazer uma assinatura de Micro- 
Hobby num prepo anual de Cr$ 1 1 .800,00. 

Para tanto, voce dever2 preencher corretamente o 
cupom anexo, coloc2-lo num envelope, junto a um che- 
que nominal ou vale postal a favor de MICROMEGA 
PUBLICAQOES E MATERIAL DIDATICO LTDA., no 
valor de Cr$ 1 1 .800,00 ( at<§ 30/10). 



No verso do cheque escreva: 



"Destina-se ao pagamento de uma assinatura 
(12 numeros) da revista MICROHOBBY". 



Quando este cheque for devolvido ao seu Banco com 
nosso endosso, servir^ de comprovante provisbrio atb 
que nosso recibo seja enviado pelo correio. 

O 
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z^penas 






fW° 



APLICATIVOS PARA TK 



/Hji-dOfteciv; vinte e sete rotinas de video, para incrementar seus 
programas! InversSo de video, moldura, arquivo de imagens, rotagflo, scroll em 
quatro diregOes. etc... efeitos visuals incriveis! Em linguagem de m^qulna, 
ocupa 1,3 Kb, ficando protegido no RAMTOP, depois 6 s6 utiliz^-lo onde quizer! 
P/16K. Com manual explicatlvo. 

TIG-COMP: coloque. em seus programas em BASIC, a velocidade de c6- 
digo de mdquina. Rode-os na forma COM PI LADA! Simples de usar, 6 s6 
carregar ou digitar o seu programa em BASIC e depois usar o TIG-COMP. 
Pronto! Voc6 ter& o seu programa em linguagem de mAquina em instantes. 
P/16K. Com manual explicativo. 

TIG-SPEED: uma combinagSo de soft e hardware, permitindo uma 
transference de dados micro/cassete de 4.200 bauds. Voc6 podera carregar ou 
gravar 16Kb em 30 segundos! Acrescenta ao micro a fungSo VERIFY. Facilimo 
de operar, compOe-se de cassete, interface e manual explicatlvo. P/16 e 48 K. 



TIG-LOADER possibilita: 

• a localizagao do otimo volume do gravador, facilitando a 
operagao LOAD. 

• DUPLICAR qualquer programa, mesmo aqueles 
" fechados '! 

• carregar (LOAD) e DUPLICAR simultaneamente. 

• gravar (SAVE) em 2 gravadores ao mesmo tempo. 

• monitoraras operagoes LOAD , SAVE ou DUPLICAQAO 
atravds de tone. 

• filtrar as interferences eldtricas de baixa frequencia, que 
sao a causa da maioria dos problem as de LOAD /SAVE. 



1 TIGRE 



COM . DE EQUIP. P/COMPUTADORES LTDA. 

Rua Correia Galv3o, 224 - CEP 01547 - Sao Paulo 



Envie seu pedido + cheque cruzado. , 
Prazo de entrega: 15 dias. 

Despesas postais incluidas nos p repos. 



Atendemos somente por carta. 
Solicite relag§o de programas em fita. 



IT 



SIM , dese/o receber o TIG-LOADER. 



para tanto. estou anexando o cheque n‘ 



no valor de CrS 



NOME: 




ENDERECO 


CEP: 


CIOAOE: 


ESTADO: 


PROFJSSAO: 


ASSINATURA: 


IOAOE: 


MARCA 00 MICROCOMPUTADOR: 








\ \ \ \ \ \ V 



| SOFTWARE 

> GRATIS 
< na compra 
5de urn micro 









tOPSYPAP.P 



P 'MM ‘J LAS'J OJ 












•J'JyjOj 



♦♦♦♦♦ 



•JOiAPlI'fADOyJj 



♦ ♦ 






INFORMATICA 



Rua Santa Ifigenia, 568 
Tel. (011)221-9055 
Telex (011) 34901 -POEC 



Rua General Jardim 482 - 49andar 
Tel. (011)221-9055 
Telex (011) 34901 - POEC 







